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Ageragao definitiva esemprea proxima. 



O JR da 



Vocf s6 descobre o quanto precise de um Micro-Corn 
putador JR da Sysdata depots que o conhece de perto. 

Voce vai ter certeza de que fez um 6timo negboo ao 
adquiri lo assim que o coiocar na sua empresa ou na sua 



6 rdptdo. 6 verse til, 6 compacto. 



Contabtlidade, controte de contas a pagar. controte de 
contas a receber, folha de pegamento, controte de esto- 
que, controte de clientes, reiatdno de clientes, mala direta, 
cAkxikw de orpamentos flnariceiros controle de processes 
industrials, c£icuk>s de engenharia. cSIculos de estatfsti- 
cas, funpOes materrteticas, funpGes Ibgicas em cadeia de 
caracteres (STRINGS), grfficas, jogos animados. progra 
mas educacionais. 

O JR PERMITE AINDA: 

O acesso a grandes sistemas de computapSo. a comuni- 
cacao entre os departamentos de Empresa. efetuar pro- 
gramas especificos para cada Empresa. 

E. como se nSo bastasse, ete 6 o Micro-Computador de 
manor prepo do mercado. 

Com todas as qualidades que tern, o JR da Sysdata nem 
precisava ser tdo econbmico. Mas 6. 

Afinal, ete 6 o mais completo Micro-Computador de sua 
gerapdo. 

Inclusive no prepo. 

Voce pode testar estas e outras qualidades do JR em 
quaiquer dos nossos revend edores 
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Aqui voce tem a melhor 
iniciag&oem 
microcomputagSo 
que existe. 

O TK 83 fd enslnou mol s de 2 milhdes de pessoos 
Ele 4 multo fdcll de operor. Usa o Basic, e a memdrlo chega 
old 64 K bytes, e acelto monitor, Impressora e joystick, 

Num Instonte voc6 vol os tor resolvendo problemas 
progromando, ou vencendo os multos logos dlsponlvels. O 
T K 83 ndo 4$ do melhor Intclo^Oo Tombdm 4 a mols divert Ido. 

Aqui voc§j4aplica 
os seus conhecimentos 

Com o TK 85 voc4 tombdm pode se dlvertlr multo ele 
tem deienos de logos dlsponlvels, 

Mos ele jd 4 mols soflstlcodo Tem software fd pronto 
Linguogens Basic e Assembler. Teclodo tipo mdqulno de 
escrover. com 40 teda s # 160 funs&es I6 ou 48K de 
memdrlo RAM. e lOde ROM Grovopdo em high speed, 
e funfdo Verify , poro motor t eguronpo, 

Ouando voc4 Id es liver apoixonodo por 
mlcrocomputoqdo. ele vol corresponder totalmente 
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Aqui voc& mostra 
tudo o que sabe. 

O TK 2000 Color tem tudo que os 
melhores micros tdm Meno t o prepo 
Acelto diskette, Impressoroffd vem com 
mtorfoce), alto retolufOo grdflca 6 cores 
podendo t or llgado oo tea TV color Ido 
ouPBB Tem 64 k de memdrlo RAM e 
16 k de memdrlo ROM Comexcelente 
software dlsponfvel 

Voc4 pode mostror tudo o que sobe 
Sem preclsar mostror multo dlnhelro 
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0 QUE UM MICROCOMPUTADOR 

FAZ POR MIM? 

Ate hoje para responder es- 
sa pergunta so existia um 
Ijeito: fazer sua empresa 
comprar e instalar um microcompu- 
tador e aprender por si mesma. 

O programa Micro Esforgo a ju- 
da voce a entender o que um micro- 
computador e e o que ele faz dentro 
da sua empresa, antes que voce in- 
vista um centavo nele. 

COMOESCOLHERO 

EQUIPAMENTO? 

Quando sua empresa cha- 
ma um fabricante ou um re- 

presentante de microcom- 

putadores, ela esta arriscada a 
comprar o que eles tern para ven- 
der. Nao o que voce precisa. 

Muitas acabam colocando um 
equipamento na sua empresa, sem 
ao menos se importar com o tipo ou 
tamanho do seu negbcio. 

Com o Programa Micro Esforgo, 
voce elimina todos esses riscos, por- 

3 ue ele identifica qual a capacida- 
e do equipamento que voce real- 
mente precisa. E se for o caso, diz 
para voce que sua empresa nao pre- 
cisa de microcomputador. 
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ANTES DE VENDER UM MICROCOMPUTADOR PARA SUA EM- 
PRESA, A DiSMAC ESTA INTERESSADA EM SABER EXATAMENTE 
AQUILOQUEELA PRECISA. 

POR ISSO, A DiSMAC CRKXJUM PROGRAMA QUE ESTUD AO 
TIPO E TAMANHO DA SUA EMPRESA, IDENTIFICA SEUS PROBLEMAS 
E FAZ UM PROJETO ESPEOFICO PARA AUMENTAR SUA EFtCIENOA, 
DIMINUINDO SEU CUSTO. VOCE CONSULTA A DISMAC S06RE 0 
PROGRAMA MICRO ESFORGO SEM NENHUM COMPROMISSO. CA- 
SO VOCE SE DECID A PEL A IMPLANT A£AO DO PROJETO, A DiSMAC 
POOE OFERECER TUDO 0 QUE VOCE VAI PREQSAR PARA ISSO. CA- 
SO CONTRA RIO, VOCE NAO PAGA ABSOLUT AMENTE N ADA. 

UMA OPORTUNID ADE EM MIL PARA SUA EMPRESA TIRAR AS 
DUVIDAS E VOCE ACABAR COM SEUS TEMORES. 



MULTIUSUARIO 

A Dismac tern microcompu- 
tadores para empresas pe- 
quenas, medias ou grandes. 
E a unica que tern o sistema multiu- 
suario. Isso quer dizer que um fun- 
cionario da sua empresa nao preci- 
sa esperar outro terminar a opera- 
gao para que ele inicie. Ate 8 depar- 
tamentos da sua empresa podem ter 
informagoes diferentes ao mesmo 
tempo. 

ATE ONDE EU POSSO 
CONTAR COM OS SISTEMAS? 

Muitas empresas estao 
usando somente a metade 
da capacidade dos seus mi- 
crocomputadores. Uns porque nao 
encontram sistemas cert os para re- 
solver seus problemas. Outros por- 
que nao sabem como usa-los. 

No Programa Micro Esforgo, 
quando a Dismac estuda seus pro- 
blemas, ela ja pode dizer quais os 
sistemas voce vai precisar e desen- 
volve cada um, especialmente para 
o seu caso. 



QUEM ME OFERECE ASSISTENCI A? 

Para a Dismac, a vida de um 
microcomputador nao aca- 
ba no momento em que voce 
compra e instala. Ela sabe que se vo- 
ce precisar de assistencia tecnica, 
cada hora que o equipamento esti- 
ver parado, representa dinheiro 
que voce esta perdendo. 

Atraves do Programa Micro Es- 
forgo, a Dismac desenvolve um me- 
canismo para atender seu caso em 
menor tempo e com maior eficien- 
cia, em qualquer ponto do Brasil. 

HOT LINE 

Para sua empresa conhecer 
o Programa Micro Esforgo 
sem nenhum compromisso e 
ter um projeto para solucionar seus 
problemas sem nenhum custo, e so 
ligar para (01 1) 825-3588, 825-2696 
e falar com o Sr. Akira. 

Odismac 
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Junior tern solucao pra tudo. 



Junior, o micro prodtgio da Itautcc. Mais dc 16() soft- 
wares ja dcscnvolvidosecatabgados. E muitos outros 
cm desen volvi men to. Solu^oes imediatas no plancja- 
mento, analisc, racionaliza^ao, aprcndizado,oontrolcsc 
apcrfei^oamcnto dc metodos c sistemas. Dois progra- 
tnas. desenvolvidos cspecificamente pela Itautcc, aten- 
dem as ncccssidades diarias deempresase profissionais: 
Redator- Proccssador dc textos para lingua portu- 
guesa. Calctcc- Planilha dc calculo eletronico, quejper- 
mitc qualquer tipo de calcub, no formato linha/ 
coluna, com possibilidadc dc rccalculoc atualiza^ao 




imediata tbs dados. Junior. Micro versatil, pessoal e 
profissional, quo atende com efidenda as mais diversas 
areas, como medicina, engenharia. dircito, agropccua- 
ria, educa^ao, administra^ao, arte, musica, c tern aplica- 
£oes domesticas. Scmprc com 
a garantia dc assistcncia da 
Itautcc. Um nomccompro- 
metido com a cvolu^ao da 
informatica national. 



Itautec 
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n RELATbRIOS: 

A SAIDA PARA UMA 
BOA F()RM ATA(, A() - 



O comando PRINT SPC (X), 
no Apple, permite imprimir 
linhas com mais de 40 colunas, 
mas exige campos de 
comprimento fixo. E se o 
tamanho for variavel? Vcja um 
maccte neste anigo de Antonio 
Carlos P. Salles. 




EDITOR ASSEMBLER 
PARA A LINHA 



SINCLAIR - E ficil errar em 
Assembler. O dificil c achar c 
corrigir o erro. No entanto, 
com o uso dc um bom Editor - 
estc, por excmplo, descnvolvido 
por Luiz Imbroisi Filho - tudo 
fica mais simples, pois cle 
escrcve dircto em mncmonicos. 
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Seta endereco 
S0802 com o 
valor $08 
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Seta o 
trador 


reqis- 
Y com 





90 


REM 


LD 
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100 


REM 


LDIR 


1 10 


REM 


EX 
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120 


REM 


LD 
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130 


REM 


NOP 
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LET 


A= 


95 


150 


REM 


LD 
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SIDRA - Uma distracao, 
o comando NEW e 
pronto. La se vai o duro 
trabalho de muilas horas. Mas 
nao se desespere: ele nao 
sumiu, so esta escondido, 
c o MILAGROSO, programa 
dc Rudolf Horner Jr., vai 
ajudar voce a recupcra-lo. 



f. A PROGRAME O 
UU BALAN^O DE SLA 

EM PR ESA - Nestes tempos 
bicudos, a saiidc das empresas 
tornou-se um assunto delicado. 
Veja como estao os seus 
negocios (e os dos seus 
concor rentes), com o auxilio 
dcste programa dc Dorl<*v de 
Jesus Godarth para a linha 
TRS-80. 
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A SEQUENT TA FORA DE ORDKM - 
Programa de Mauro Antuncs para a linha 
Sinclair. 

PROGRAM AQAO KM FORMA DE 
MENU - Artigo de Her nan Campcro 
Lopez 

FACILITE A 1NTERAQAO HOMEM- 
MAQU1NA - Artigo de Suclcna Ortiz 
Porto e Helena Vauthier de Souza. 

COMO CALCULAR VOLUMES SEM 
FAZFR P0R£A - Programa dc Hcber 
Jorge da Silva para TRS-80. 

DECOMPOSING LI PARA SISTEMAS 
LINEARES - Programa dc Alvaro 
Rodolfo de Pierro para Sinclair. 




ENDERECO E TELEFONE? LISTEL 
RESPONDE - Programa de Louis Carlos 
Niello para HP- 85. 
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MICRO BUG: O COMANDO £ E A 
KOTINA SKEY - Artigo elaborado pela 
cquipc do CPD de MS. 
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SLMEROS AI.EATORIOS - Programa 
de Paulo Alfredo Luccna para HP-41C. 

OTIMIZAQAO DE ARQLIVOS EM 
CASSETE - Artigo de Roge Rosolini para 
TRS-80. 

ARQL IVO DECOMl NIC ADOS - 

Rodada MS, programa de Alcionc 
Spcrandio Junior para TRS-80. 

COBRA VOLTA-SF. PARA OS 
PFQLENOS - o lancamcnto do 
microcomputador Cobra-210. 

JVA LANC'A JOGOS E l TILITAKIO 
PARA SINCLAIR 

PERDIDOS NA Ql ARIA DIMENSAO 

- Programa de Jose Alexandre Dcll’lsola 
para o PC-1211. 
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UM ENDURO MICRO- L0UCX) - Programa 
de Claudio Leonardo Milionc Dutra para 
Apple. 
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m Sdo Paulo, fiz visita a uma 
loja especializada na revenda 
de microcomputadores. E uma 
loja traditional do setor, uma 
das primeiras a aparecer na capital 
paulista; goza de boa reputaqao den- 
tre aqueles que tern por esporte predile- 
to o tour pelas lojas e sempre invest iu 
bastante em sua imagem. 

A loja, para meu espanto, estava bem 
vazia, embora estivessemos em intervalo 
de almogo, bora sabidamente movimen - 
tada devido as visitas daqueles que tra- 
balham. A maioria das maquinas esta- 
vam parados, enquanto o numsroso 
staff da loja concentrava-se em torno 
de um equipamento aberto nosfundosda 
loja, provavelmente ocupando-se de al- 
gum problema de assistencia tecnica. 
Fui falar com o dono. “E a crise, Alda. 
Nunca o mercado esteve tao man ”, 
queixou-se ele. 

0 Julho de 1981. A Computique inau- 
gurava no Brasil o esquema de comer - 
cializagao de varejo de equipamentos 
que ate entao eram verdadeiras caixas- 
pretas para os nao-iniciados. O Rio pos- 
suia a primeira loja de microcomputa- 
dores do pais. Lembro-me bem pois 
participei ativamente do fato: o clima 
era de euforia. 



Decorridos quase tres anoS, o merca- 
do das lojas sofre realmente sua maior 
crise. Muitas lojas fecharam. Muita gen- 
te que previa ganhar dinheiro desistiu. 

Neste contexto, um fendmeno que 
tern criado dificuldades para muitos lo- 
jistas e a verdadeira “queima de pregos" 
que vem ocorrendo no mercado das 
grandes capitais. Hoje, um comprador 
potential de um equipamento tipo 
Apple, se tiver dois ou tres dias para 
gastar percorrendo os lugares certos, 
economizara no minimo um milhao de 
cruzeiros. Soubemos de casos de negd- 
cios realizados recentemente no Rio de 
Janeiro com base em ORTN do mes de 
fevereiro\ 

O mercado de perifericos tambem 
anda descon trolado, depois que um dos 
maiores fabricantes de impressoras do 
mercado vendeu uma partida grande 
dessas maquinas a um grupo de funcio- 
narios de uma empresa estatal e este pes- 
soal passou a revender os equipamentos 
por um prego mais baixo. 

0 “O problema e que a oferta e maior 
do que a procura, e a loja tern que ge- 
rar negocios e ndo somente esperar o 
cliente que entra. E nesta epoca de cri- 
se, quando entra um cliente, o pessoal 
nao quer perder, dai vai dando os des- 



contos”, disse-me um lojista amigo. 

Embora a guerra de pregos possa pa- 
recer, a primeira vista, favoravel ao com- 
prador, a baixa taxa de rentabilidade com 
a qual funcionam os pontos de venda 
atualmente nao darao condigdes para 
um bom atendimento ao cliente no me- 
dio prazo. 

E muitos lojistas nao negam a parce- 
la de responsabilidade dos fabricantes 
na confusdo que se instalou: “Se o fab r \- 
cante nao e fiel ao revendedor, este nao 
pode ser fiel ao fabricante. Estou de- 
volvendo mercadorias, pois certos equi- 
pamentos chegam para mim mais earn 
do que no balcao de outras lojas ”, dis- 
se-me um dono de loja. 

Ciumes h parte, exist e outro ponto 
bastante delicado que os lojistas tern 
apontado: o prego do software e a " fal - 
ta de cultura do nosso usuario, que se 
recusa a pagar por software''. Esta dis- 
cussdo, no entanto, fica para uma fu- 
tura oportunidade, e convidamos os in- 
teressados a participarem do debate. 








Editor Diretor R»»pon*dve): 
A Ido Sorerus Compos 

Dirat of-Ticnico: 

Renoto Degiovom 



ADMINISTRAQAO Janete Sarno 
PUBUOOAOE 

SAo Poulo: 

Natal Colma 

Contatov Eloisa Brunelh Morisa Ines Coon Poulo Go- 
mide 

Rio de Janeiro: 

Elizabeth Lopes dos Santos 
Contoto: Regina de Fatima Gimenez 



Assessona TOcnico: Roberto Quito de Sont Anno Luiz An- 
tonio Pereira, Orson Voerckel Galvdo Carlos Alberto Diz 

Redo^&o: 

Edna Araripe (subeditozio). Cldudio Salles Romolho 
Denise Progono Groco Sontos Mona da GlOrio Esperon 
<o Ricordo Inojoso Stelo lorhtermocher 

Cotaborodores: Akeo Tonobe Amoury Moroes Jr An- 
tonio Costa Pereiro. Corlos Alberto Diz. Evondro Mos- 
corenhos de Oliveiro Ivo D Aquino Neto Jodo Antonio 
ZuHo; Jodo Henrique Volpmi Mottos Jorge de Rezende 
Dantos Luciano Nilo de Androde Luis Loboto lobo lutz 
Carlos Eiros. Marcus Brunetta Paulo Salles Mourdo Rob- 
son Vilela Rudoll Horner Jr 



Minas Gerois: 

Representonte: Sidney Domingos da Silva 
Rua dos Coetds. S X sola 42? 

Tel : (031 ) 20M 284 Belo Horizonte 

CIRCUIACAO E ASSINATURAS: 

A demo r Belon Zochio (RJ) 

Jonio Pereira (SP) 

DISTRIBUICAO: 

Fernando Chinaglia Distnbuidora ltda 
Tel : (021)268 9112 

Composi<do: 

Gazeto Mercantil S A GrOfica e Comuntcocdes 



Revisdo: Maria Christina Coelho Marques 

Diogramo^do: Leonardo A Santos 

Arte Finol: Vicente de Castro Pedro Poulo S Coelho 



Fotolito: 

Orgonizocdo Beni Ltdo 

Impressdo 

Editoro Vecchi S. A. 



Assirtoturos: 

No pois: l ono — Crf 20 000.00 

Os artigot aisinados sdo de responsabilidade unica e ex- 
clusiva dos oulores Todos os direitos de reprodu(da do 
contevdo do revisio os Ido reservodos e qualquer repro- 
du(6o com hnohdade comercial ou ndo. s6 poderd ser 
feita medionte autorizocdo prtvia Transcribes parciois 
de trechos para comentdrios ou relertncios podem ser 
feilos. desde que se/om mencionodos os dodos biblio- 
grdhcos de MICRO SlSTCMAS A revisla ndo oceila mo 
renal publicildrio que possa ser confundido com maldno 
redocional 



MICRO SISTEMAS 6 uma publicocdo mensol do 



Andlise. Teleprocessomento 
e Informdtica Editoro Ltdo 



Ertderecos: 

Rua Oliveira Dios 153 Jordim Poulisto — Sdo Paulo SP 
— CEP01433 -Tels (011)853 3800. 853-7758 e 881 5668 

Av Presidente Wilson, 165— grupo 1210 Centro Rio 
de Joneiro/RJ — CEP 20030 - Tels (021) 262 5259 262- 
6437 e 262-6306 
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A avan$ada tecnologia do raio laser para 
converter os dados de sai'da de computador 
em imagens prontas para uso. 




As Processadoras/lmpressoras de Microimagens Kodak KOMSTAR sdo verdadeiros 
perifericos de computador, que oferecem notdveis melhoramentos nas operagoes de 
sai'da de dados, ao mesmo tempo em que reduzem os custos operacionais. 




Permitem ainda a obtengao de titulos em vdrios tamanhos, microfichas com fndice 
em diversos formatos. Tudo com rapidez e perfeigao, sempre. Mas al6m dessas, existem 
outras vantagens que vocd precisa conhecer. 




Ndo espere mais tempo. Envie hoje mesmo o cupom a baixo, solicitando o Guia 
Kodak para as Processadoras/lmpressoras de Saida de Dados de Computador. 
Vocd verb, em detalhes, tudo o que as Processadoras/lmpressoras Kodak KOMSTAR 
podem oferecer. 

Ao receber seu Guia, voc§ estard abrindo as portas de sua empresa para a mais 
avangada tecnologia existente no mundo da informdtica. Uma tecnologia que tern a 
garantia de uma marca que vocd conhece e confia: Kodak. 



CUPOM DE RESERVA GRATIS 

Sim, quero receber gratuitamente o Guia Kodak para as Processadoras/lmpressoras de Saida de 
Dados de Computador. 

Nome 

Cargo 

Empresa... 

Enderego 




CEP CIDADE 



ESTADO 



I- 



(A Kodak atenderd os pedidos por ordem de chegada e na medida dos seus estoques). 




Departamento de Sislemas Microgrdficos 

KODAK BRASILf IRA COMERCIO E INDUSTRIA LTDA. 

Rua George Eastman. 213 • 05690 • Tel.: (011) 542-0111 • Sdo Paulo • SP 








O sorteado deste mft*, que raceberi uma 
assinatura de um anode MICRO SISTEMAS, 
8 Ronaldo Lobo Burgatti, da Sao Paulo. 



S.O.S. VIC-20 



Tenho um micro Comodore VIC-20 com 
virios complementos e diversas fitas de jo- 
gos, mas nio consigo fazer com que a cor 
aparega na TV, uma Sanyo de 20 polegadas. 
Gostaria de saber $e 8 necessirio fazer algu- 
ma modificagio ou colocar algum compo- 
nente na TV para obter a cor desejada, pois 
todos os jogos aparecem em preto e branco. 
Gutemberg C. Penteado 
Campinas-SP 

Infelizmente, Gutemberg, n6s nfo temos 
ace no a este equip amen to e por isao nio po- 
demos ajudi-lo. Mas, quern sabe, algum lei- 
tor poderft Ihe ajudar? Vamos torcer. Aten- 
780 lei to res que tern sxperiAncia com o 
VIC-20: escrevam para a Red *730 de MI- 
CRO SISTEMAS, Segio Cartas: Av. Prasi- 
dente Wilson, 165 — Salas 1210/1216, Rio 
de Janeiro-RJ, CEP 20030 (NOVO ENDE- 
REQO). 





artigo "Linhas de programa: usou, elimi- 
nou!" (publicado em MS n? 27, pig. 56), 
pois fui muito apressado em dizer que havia 
erro, pois de fato o programa fundona. Pe- 
70 transmitir aoautor (Girson Bianco Alon- 
so) meus parabins pela valiosa co la bora- 
gio (...). 

Ricardo Mendonga 
Recife-PE 

Que bom que conseguimos te ajudar, 
Ricardo. Melhor ainda 8 que vocA nos deu 
um bom retorno sobre os seus problemas. 
Agradecemos sua gentileza. Agora, com rela- 
980 8 sua pergunta se o NEW 8 um comando 
ou uma instrugeo, ele s6 ser8 uma instrugio 
se pertencer a uma linha de programa. Fora 
da listagem do programa, o NEW 8 um co- 
mando. 



SERRAPELADA 



Tendo digitado e gravado o programa 
"Aventuras em Serra Pelada" (editado em 
MS n? 28, pig. 14), verifiquei erro na agio 
numero 84 da pigina 15, pois nio se conse- 
gue acender a dinamite mesmo portando-se 
o isqueiro. 

Assim, na raferida agio, onde se 18: 
"/_E— O.H W$?F", leia-se : E— N,HW$?F". 
Gostaria que a corregio fosse apresentada 
aos demais leitores dessa conceituada pu- 
blicagao. 

Carlos Henrique Crivellaro 
Sio Paulo-SP 





MONITOR E MANUAL 

Venho por meio desta agradecer a carta 
enviada por MS em resposta ao meu pedido 
de esclarecimento sobre o "Monitor BASIC" 
(publicado em MS n? 25, pig. 14), a qual 
permitiu-me usufruir do monitor. De fato, 
8 necessirio usar 0 comando NEW apbs al- 
terar o valor da RAMTOP. Foi uma falha 
nio ter consultado o manual a respeito, 
falha que ocorreu porque, em geral, os ma- 
nuals nio estimulam a perfeita compreen- 
sio, devido a maneira como s5o escritos. 

No primeiro manual do TK82-C (que de- 
pois foi relangado com melhor apresenta- 
760), a possibilidade de reservar espago no 
topo da membria nio 8 sequer mencionada. 
Permitam-me que discorde da carta de MS 
no que diz respeito 8 clareza do manual. O 
capi'tulo 26-1 do manual afirma (na fnte- 
gra):... "NEW, por outro lado, nfo faz um 
teste de membria cheia, mas apenas verifica 
at8 antes do enderego RTP. Assim, se voc6 
fizer um POKE do enderego de byte exis- 
tente para RTP, para NEW toda memdria 
daquele byte em diante est8 fora do sistema 
BASIC e 8 deixado de lado..." 

Onde est8 a clareza da absoluta e indis- 
pens8vel necessidade do NEW? O que est8 
claro 8 que esses bytes protegidos nio serio 
afetados por um NEW posterior. Mais adian- 
te, o manual ensina a preservar 20 bytes, or- 
denando que se faga: 

POKE 16388,236 
POKE 16389,71 

e entio digitar NEW. Neste caso, o uso do 
NEW (alids, a carta de MS chama NEW de 
comando e o manual do equipamento cha- 
ma de instrugio. Qual o correto?) apds os 
POKEs poderia indicar alguma coisa mas, 
sem duvida, um fato t3o importante nio de- 
veria ser relegado a um exemplo perdido no 
fim do capftulo. Neste ponto, fica bem claro 
que a ajuda de MS foi de grande valor. 

De novo agradego pelo puxSo de orelhas 
que a carta de MS me deu com relagio ao 
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Voc8 est8 correto, Carlos. Agradecemos 
muito por sua ateng8o. 

observaqOes do leitor 

Gostaria de parabeniz8-los pelo excepcio- 
nal servigo que v8m prestando 8 comunidade 
brasileira adepta do micro e equipamentos 
de maior porte (...) £ Ibgico que todas as 
manifestagbes do ser humano estio sujeitas 
a falhas, pois 8 muitas vezes errando ou co- 
metendo enganos que aprendemos mais. 
Venho entio chamar a atengio para dois 
erros em programas publicados em MS 
n? 28, nos programas "Penosa Travessia" e 
"Laser Base: o tiro do canhao": 

1 — Programa Penosa Travessia 

Quanto 8 parte em Assembler que trata 
de uma rotina que roda a tela para a esquer- 
da, tudo bem. O erro, entretanto, encontra- 
se nas linhas 34 e 35: quando mandamos im- 
primir a gal in ha na avenida n8o pergunta- 
mos ao programa (atrav8s de um PEEK) se 
aquele ponto est8 obstrufdo ou nio, fazen- 
do-se esta pergunta posteriormente, ou seja, 
invertendo a ordem. Minha sugestio 8 a se- 
guinte a I ter agio: 



2 LET A=22 

3 LET B=10 

31 FOR Z=1 TO 300 

32 PRINT AT A , B ; 

33 IF PEEK (PEEK 16398+256* 

PEEK 16399)0 0 THEN LET A=22 

34 PRINT AT A,B;"$” ; AT A,B,-" 



Assim, a linha 32 aponta a posigio de 
impressio da galinhe no vfdeo. A seguir, a 
linha 33 pergunta ao arquivo de imagem se 
esta 8rea do video corresponde a um espago 
em branco (0) ou a um obst8culo ( < > 0 ) 

Se for um espago, prossegue a execugio nor- 
mal do programa, caso contr8rio, mandamos 
a galinha de volta 8 sua origem. Acredito 
tamb8m que o programa fique mais interes- 



sante se modificarmos a linha 22: 

22 IF M= 0 THEN PRINT AT F, INT 
(RND*28); " (8 espagos inversos) " 

2 — Programa Laser Base 

Por um erro de im pressed , no enderego 
16610 foi dado o valor de DA, acarretando 
o seguinte: quern 8 usu8rio do jogo reparou 
que o canhio inimigo acompanhava os mo- 
vimentos do jogador, mas sem atirar sobre 
este, o que provocou uma perda de atragao 
pelo jogo, sem mencionar o fato de que o 
jogo nSoparava nunca. Analisando o Assem- 
bler, nos enderegos 16610, 16611 e 16612 
tfnhamos que: 

16610 DA 1 A 41 JP C, 16666 

isto fazia com que o resto do segundo bloco 
nio fosse efetuado e o programa entrasse em 
loop nio retornando ao BASIC. Em lugar 
de DA, o byte certo 8 CA, que ocasiona: 
16610 CA 1A 41 JP Z, 16666 
satisfazendo, assim, a comparagio anterior: 
16608 FE D2CP 210 
Ronaldo Lobo Burgatti 
Santos -SP 

Ronaldo, agradecemos suas interessantes 
sugestdes e aproveitamos para Ihe fazer uma 
sugestio: por que voc8 nao desenvolve pro- 
gramas e manda para a gente? 



MS AGRADECE 



Gostarfamos de assinalar o grande su- 
cesso que vem tendo a revista MICRO SIS- 
TEMAS em nossa loja, pois em apenas um 
dia todo o estoque foi vendido, obrigando- 
nos a solicitar com urgincia uma nova re- 
messa. 

Computer — Feira de Computadores e Siste- 
mas Ltda. 

Feira de Santana-BA 

A revista MICRO SISTEMAS vem 
melhorando cada vez mais, numero a 
numero. Gostaria de parabenizi-los pelos 
programas e pela qualidade da revista. Sou 
leitor regular e em todas as MS venho 
encontrando um alto nfvel t6cnico em todos 
os programas e em todas asdicas. Outrossim, 
meus sinceros agradecimentos ao diretor 
t6cnico, Renato Degiovani, pelos programas 
e pelas dicas. 

Enrique Montero 
Vigosa — MG 





( ANUNCIOS PERIGOSOS ) 

Li na revista MICRO SISTEMAS n9 26 
um anuncio do Sr. Alexandre Farias, que me 
pa red a bom: ele desejava trocar informagbes 
e programas. Resolvi escrever para ele e de- 
pois de algumas correspondencies, como 
algu8m tinha que comegar a mandar fita K-7 
pelo correio, resolvi mandar primeiro. Man- 
dei a fita e uma carta. Esperei uma semana e 
mandei outra carta, e depois outras. Aconte- 
ceu que acabei sem uma fita e arranjando 
um belo e desprezado amigo. 

Gostaria que escrevessem para ele pedin- 
do que, pelo men os, me devolvesse a fita. 
Alexandre Costa Gaeta 
Rio de Janeiro-RJ 

Em primeiro lugar, quero parabeniz8-los 
pela revista: a melhor do g8nero, a meu ver. 
Possuo um computador pessoal CP-200 e 
admiro muito os programas e implementa- 
gbes para as versbes do Sinclair. 

H8 algum tempo, li um anuncio em um 
jornal de classificados sobre a venda de soft- 
ware por correio a pregos convidativos. 



Tendo me interessado, enviei ao anunciante, 
Sr. Eduardo Margal (Caixa Postal 78, CEP 
18100, Sorocaba-SP), uma carta solicitando 
um cat8logo dos programas disponfveis, no 
que fui prontamente atendido. Fiz o pedido 
de um programa atrav8s de uma carta, a qual 
anexei um cheque nominal cruzado a favor 
do Sr. Margal. Apbs mais de um mbs, remeti 
ao Sr. Margal nova carta pedindo esclareci- 
men t os sobre a fita, mas nio obtive resposta. 

Gostaria de uma informagio: no endere- 
go anteriormente dtado fundona alguma 
loja ligada 8 Informitica do vosso saber? Em 
ca$o negativo, gostaria de alertar aos outros 
leitores para que fiquem atentos contra mais 
um desses novos piratas. 

Carlos Alberto Episcopo 
Sio Paulo-SP 

Nbs nio podemos afirmar, em nsnhum 
destes casos, se houve ou nfo uso de mi f6. 
O que podemos fazer, e fazemos, 8 abrir es- 
pago para que os usuirios fagam as suas de- 
nbncias, que, aos poucos, vio formando um 
maior nfvel de consciincia na grande maio- 
ria dos usuirios. Talvez af possamos, juntos, 
fazer uma selegdo entre aqueles que respei- 
tam ou nio o mercado consumidor de mi- 
cros e software. 



PERIFERICOS DOTK 85 



Na qualidade de possuidor de um TK 85 
(16 K), gostaria que me esclarecessem al- 
guns pontos com relagio aos perifiricos 
constantes do folheto de especificagbes tic- 
nicas do TK 85: 

1? — Nio existe em lugar nenhum, isto 8, 
em nenhuma loja de micros aqui em Belo 
Horizonte, a impressora que a Microdigital 
diz existir 8 disposigio do TK 85; 

29 — Nio se encontra tambim o gerador de 
som para o TK 85; 

39 — Como o prego do TK 85 de 16 K 8 
bem abaixo do prego do TK 85 com 48 K, 
resolvi comprar o de 16 K pensando em 
mais tarde expand f-lo para 48 e at8 mesmo 
64 K, uma vez que esta possibilidade consta 
do folheto de especificagbes do equipamen- 
to. 

Gostaria de merecer, o mais ripido pos- 
sfvel, uma resposta clara e objetiva sobre es- 
tes fatos que enumerei, uma vez que consi- 
dero de extrema utilidade a disponibilidade 
destes perif8ricos para a plena exploragio 
dos recurs os que o TK 85 me parece possuir. 
S8rgio Eduardo de 0. Lourengo 
Belo Horizonte-MG 

Como Sempra, Sirgio, remetemos sua 
carta para a Microdigital. Eis a resposta: 
"Em atengio i carta que nos foi enviada 
pela conceituada revista MICRO SISTEMAS, 
informamos que apreciamos muito suas ob- 
servagdes sobre os perifiricos do microcom- 
putador TK-85, e pela presente reqjonde- 
mos is suas dbvidas: 

1 — A impressora, que sua carta se refere, 
foi comercializada pela Microdigital no inf- 
cio de 1983, e por problemas de compo- 
nentes (os quais eram em sua maioria im- 
ported os) paramos completamente sua pro- 
dugio. Outrossim, informamos que breve- 
mente iremos fabricar uma interface com ca- 
bo para qualquer impressora paralela (M6- 
nica, Emflia...). 

2 — 0 gerador de som estari disponfvei a 
partir de junho. 

3 — A expansao de mem6ria para 48 K do 
TK-85 se encontra disponfvei, com o prego 
de Cr$ 274.850,00. Caso este perif8rico nao 
esteja sendo comercializado em sua cidade, 
favor entrar em contato com nosso Depar- 





tamento Comercial: A. Angblica, 2318/ 
139 e 149 andar, CEP 01223, Sao Paulo- 
SP." 

Ricardo Tondowski 

Dept, de Relagdes PCiblicas da Microdigital 

ASSISTENCIA DA HP 

Sou proprietbrio de uma cal cu lad ora 
HP-41CV, s8rie 2232S41461, adquirida nos 
E.U.A. Tendo apresentado defeito, levei 8 
filial da HP no Rio de Janeiro, dentro do 
prazo de garantia, para consert8-la. Foi-me 
negado o conserto dentro dos moldes do 
contrato de garantia, com a alegagSo de que 
a mbquina com esta sbrie sb tern garantia 
nos E.U.A., e que eu teria que enviar a m8- 
quina para 18! 

Inconformado, escrevi para a matriz da 
HP no Brasil (em S80 Paulo), que, em res- 
posta, afirmou ser efetivamente da respon- 
sabilidade da matriz mundial da Hewlett- 
Packard a garantia da miquina, mas que es- 
tavam estudando uma forma de revisbo dos 
procedimentos da norma de garantia para 
englobar casos como o meu. 

(...) Acho um absurdo que a HP queira 
que envie minha calculadora para os E.U.A., 
quando aqui temos uma filial da empresa 
norte-americana. Segundo os prospectos e 
manuais da HP, a garantia dos produtos 8 
em qualquer parte do mundo, e somente 
quando num determinado pafs nib existe 
uma filial da empresa 8 que toma-se neces- 
s8rio enviar para o local de origem para 
eventuais consertos. 0 bom nome conquis- 
tado no mundo inteiro pela Hewlett-Packard 
8 garantia de qualidade extrema. A filosofia 
da empresa nos EEUU 8 servir aos seus usu8- 
rios. Por que aqui no Brasil a empresa nio 
mant8m o mesmo padrio de atendimento? 
M8rio Augusto T. Russo 
Rio de Janeiro-RJ 

Como sempre, mandamos sua carta para 
a Hewlett-Packard. Af vai a resposta que re- 
cebemos, Mirio: 

"Informamos que, efetivamente, a Hew- 
lett-Packard do Brasil oferacia garantia ex- 
clusivamente a produtos brasileiros ou 
acompanhados de Nota Fiscal de Venda de 
Revendedor Autorizado no Brasil. Esta si- 
tuagio alterou-se em fevereiro de 1984 e, 
desde entio, estamos podendo atender em 
garantia produtos import ad os adquiridos hi 
menos de um ano. 

Estamos ao inteiro diqior do Sr. Mirio 
para os servigos necessirios." 

Rubens Stephan Junior 

Ge rant* da Assistincia Ticnica da HP 




sugestOes 



Gostaria que publics ssem junto com os 
programas os respectivos fluxogramas, pois 
quern nio tern o micro para o qual foi de- 
senvolvido determinado programa poderi, 
apbs fazer as modificagbes necessirias, ro- 
dar o programa em outro equipamento. 
Fernando Pi res de Almeida 
Trfts Rios-RJ 

Primeiramente, gostaria de cumprimenti- 
los pelo trabalho que vem sendo executado 
atravis de MICRO SISTEMAS. Quando hi 
um trabalho sirio, a gente aprende a confiar 
nas informagoes contidas na revista, e esta 
passa a ser um instrumento a mais em nossa 
vida profissional. 

Como todos, porim, gostaria de fazer as 
minhas sugestdes: 
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— Acrescentar ao pequeno currfculo, que 
acompanha cada artigo assinado, um endere- 
go (e talvez um teiefone, nio se esquecendo 
do respectivo cbdigo de DDD) do autor, pa- 
ra onde se possa escrever (ou telefonar) dire- 
tamente e tirar duvidas que possam ter sur- 
gido da leitura de algum artigo. 

— A inclusao de maisartigos ticnicos, tanto 
de hardware quanto de software. 

Jorge S. Lucas 

Diretor ticnico da Proma — Sistemas Analb- 
gicos e Digitais — MG 

(...) Gostaria de fazer algumas considera- 
gbes e sugestbes: 

a) seria bastante interessante se vocis publi- 
cassem uma espicie de guia do programador, 
com dicas priticas de transformagio de um 
estilo de BASIC para outro. Por exemplo, 
um programa em BASIC Applesoft para o 
BASIC do TRS-80 etc. Este guia deveria ser, 
na medida do possfvel, destacivel, para fa- 
cilitar o seu uso. Repare-se que esta publi- 
cagio iria melhorar o padrio da revista, uma 
vez que os programas poderiam ser proces- 
sados em todos os estilos de BASIC (Apple, 
Sinclair e TRS-80); 

b) por que vocis nio traduzem artigos de re- 
vistas estrangeiras e criam uma coluna espe- 
cializada?; 

c) achei bastante interessante os monitores 
BASIC e Assembler (publicados, respectiva- 
mente, em MS 25 e 23). Acho incri'vel a es- 
cassez de programas apiicativos "sirios", e 
estes devem vir sempre em MS, pois este ti- 
po de programa compensa sua publicagio. 

Estas sio as minhas crfticas e sugestbes. 
Espero sinceramente que as mesmasaumen- 
tem cada vez mais o padrio da revista. 
Sandro Jos8 Probst 
Rio do Sul-SC 

Na MICRO SISTEMAS n° 27, encontrei 
um artigo sobre "Arte e ticnica na tela do 
computador", de Renato Degiovani. Gostei 
e pediria para nao sb desenharem as f iguras, 
mas tambim publicarem programas sobre os 
desenhos, principalmente para micros da li- 
nha Sinclair. 

David Gdmez 
Belo Horizonte — MG 

Gostaria de fazer a seguinte sugestao: 
que tal a publicagio de programas apiicati- 
vos paraTK? Nbs, usuirios sirios desses equi- 
pamentos, ji estamos cheios de jogos e gos- 
tarfamos de programas mais uteis. 

Edison Bueno da Silva 
Jundiaf — SP 

Gostaria de colocar como sugestao a 
venda de uma capa dura para que os felizes 
colecionadores de MICRO SISTEMAS pu- 
dessem guardar seus exempiares; e tambim 
sugerir uma tabela comparativa entre os 
comandos em BASIC e Assembler (por 
exemplo: LD A, 50 seria, em BASIC, LET 
A = 50). 

Michel Lewinger 
Sao Paulo-SP 

Deixo registrada a minha sugestio: um 
breve curso sobre Cilculo Numirico ligado 
8s atividades de programagio em computa- 
dores de pequeno porte e/ou pessoais, pos- 
sibilitando assim um maior desenvohrimento 
de programas reladonados com Maternities 
e, consequentemente, com Engenharia. 
Gilberto A. Rodrigues 
Santos-SP 



Envie suas sugestbes pera MICRO 
SISTEMAS. Elas serfo anotadas em nosu 
pauta e procure remos, na medida do 
possfvel, viabilizi-las. 
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Para os computadores da /inha Apple, uma exp/icaqao de como bem formatar 
relatdrios de sai'da em BASIC, usando o comando SPC (X) 



Relatorios: a saida 
para uma boa formata^ao 



Antonio Carlos Palmeiras Salles 



E ste artigo visa apresentar algu- 
mas regrinhas de formatasao 
de saida em relatdrios, para 
computadores da linha Apple. 
Como todos sabem, os micros tipo 
Apple ndo permitem o uso do comando 
PRINT TAB (X) na mesma linha quan- 
do X for maior do que 40, caso em que 
a impressora salta uma linha, dificul- 
tando a formata^ao de relatdrios im- 
presses. 

Para resolver este problema, existe 
um comando que define quantos espa- 
90 s em branco devem ser deixados entre 
o campo a ser impresso e o campo im- 
presso anteriormente. Este comando e o 
PRINT SPC (X), indicando que, entre a 
ultima posii^ao do campo impresso an- 
teriormente e a primeira posi^Sd do 
campo a ser impresso no comando, de- 
vem existir X espa^os em branco. 

Ate af ndo existe segredo, claro; ndo 
se os campos a serem impressos tives- 
sem um tamanho fixo. Mas, como to- 
dos sabem, em relatdrios de saida ge- 
ralmente sSo impressos nomes, numeros, 
quantias monetarias etc., e estes campos 
quase nunca tern tamanho fixo. Como a 
linha de programa que define a impres- 
sdo de linhas no relatdrio costuma ser 
unica dentro de um loop, se voce fixar 
o valor de X dentro do SPC (X), as li- 
nhas sairdo todas desarrumadas. Ejusta- 
mente esta a fungSd deste artigo: mos- 
trar como resolver este tipo de proble- 
ma. 

Vamos entao considerar 0 relatdrio 
que esta na figura 1 . Como se pode 
observar, todos os campos tern tamanho 



variavel. As linhas verticals pontilhadas 
definem o tamanho maximo de cada 
campo. 

Consideremos as seguintes conduces: 
1 9 ) impressdo do campo 1 ; 

29 ) impressao do campo 2 em diante. 
ObservagSo: os campos podem ser ali- 
nhados a esquerda e/ou a direita. 

No primeiro caso, onde ndo se tern 
campos anteriores impressos, as possi- 
bilidades sao apenas estas: 

a) alinhados a esquerda (nomes, ti'tulos 
etc.); 

b) alinhados a direita (numeros, valores 
monetarios etc.). 

No segundo caso, as possibilidades 
aumentam, pois deve ser considerado o 
campo anterior, ou seja: 

a) anterior alinhado a esquerda - atual 
alinhado a esquerda; 

b) anterior alinhado a direita — atual 
alinhado a esquerda; 



c) anterior alinhado a esquerda - atual 
alinhado a direita; 

d) anterior alinhado a direita — atual 
alinhado a direita. 

Vamos estudar cada caso em particu- 
lar, mas antes vamos abrir um paren- 
tesis para alguns esclarecimentos que 
irdo ajudar a entender tudo o que vem a 
seguir. 

No caso de um campo numerico jd 
estar formatado para valor monetdrio, 
ou seja, na forma XXX. XXX, XX, lo- 
gicamente deve estar numa variavel al- 
fanumerica (do tipo XS). Caso contrd- 
rio, para que se possa conseguir o ta- 
manho deste valor (o que vai ser de im- 
portance primordial no decorrer do ar- 
tigo), usa-se LEN(STRS(varidvel)). Va- 
mos, no entanto, considerar que o cam- 
po numdrico (a ser alinhado d direita) 
jd estd formatado numa variavel alfa- 
numdrica. 
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Figura 2 
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Figura 3 



nar, temos dois campos alinhados a 
direita: XS e YS. Veja o exemplo na fi- 
gura 7, onde DIST4= 24. 

Com isto, ficam cobertas todas as 
possibilidades de sai'da de relatdrios. 
Pode parecer um pouco complicado, 
mas com algum treino torna-se bem 
mais simples e, com certeza, e a maneira 
mais logica. 

Para finalizar, devemos lembrar ao 
leitor que, embora os exemplos mostra- 
dos aqui abranjam apenas dois campos, 
a tecnica e valida para quantos campos 
forem necessarios imprimir por linha, 
bastando para isto que, entre um SPC 
(X) e outro, seja feita uma separa^do 
por ; (ponto e virgula) pois, caso contrd- 
rio, a impressora salta uma linha. 



OS CAMPOS DE IMPRESSAO 



Apenas por simples conven^o, deno- 
minaremos os campos a serem alinhados 
a esquerda (nomes. ti'tulos etc.) de AS 
e BS, e os campos a serem alinhados a 
direita (numeros, quantias monetdrias 
etc.) de XS e YS. Vamos, entdo, a ca- 
da caso em particular. 

1) Impressao do primeiro campo 

1.1. - Alinhado a esquerda - este e o 
caso mais simples. Basta definir quantos 
espa 90 s devem ser deixados a partir da 
coluna 1 (veja um exemplo na figura 2). 

1 .2. - Alinhado a direita - neste caso, o 
campo deve estar alinhado d direita e, 
para tal, toma-se o valor da ultima posi- 
9 do d direita a ser impressa (posi 9 do de 
alinhamento). 0 exemplo estd na fig. 3. 

2) Impressao do segundo campo em 
diante 

Antes de passarmos aos quatro casos 
aqui inseridos, vamos definir o seguinte: 

• DIST1 — distancia entre a primeira 

posi 9 do do campo anterior e a primeira 
posi 9 do do campo a ser impresso; 

• DIST2 - distancia entre a ultima po- 
si 9 §o do campo anterior e a primeira po- 
si 9 §o do campo a ser impresso; 

• DIST3 - distancia entre a primeira 

pos^do do campo anterior e a ultima 
posi 9 §o do campo a ser impresso; 

• DIST4 — distancia entre a ultima po- 
si 9 do do campo anterior e a ultima po- 
si 9 §o do campo a ser impresso. 

Vamos agora aos casos: 

2.1 — Anterior alinhado a esquerda - 
atual alinhado a esquerda - neste caso, 
temos AS (campo anterior) alinhado d 
esquerda e BS (campo a ser impresso) 
alinhado tambe'm d esquerda. No exem- 
plo da figura 4, vamos considerar, con- 
forme as defini 90 es que acabamos de 
ver, DIST1= 20. 

2.2 — Anterior alinhado a direita - 
atual alinhado a esquerda - este tam- 
bem d simples: como o campo anterior 
(XS) esta alinhado d direita e o campo a 
ser impresso (BS) esta alinhado d es- 
querda, basta definir quantos espa 9 os 



devem separd-los, diretamente. Na figura 
5 temos um exemplo, onde DIST2= 4. 

2.3 — Anterior alinhado a esquerda - 
atual alinhado a direita - temos AS ali- 
nhado d esquerda e YS alinhado a di- 
reita. Este e um pouco mais complexo: 
DIST3= 31.0 exemplo estd na figura 6 . 

2.4 — Anterior alinhado a direita - 
atual alinhado a direita - para termi- 



Antbnio Carlos Palmeiras Salles, atual men te 
cursando C Unci a da Compu tapao na Univer- 
sidade Federal da Paraiha, Campina Grande, e 
responsive! pela implantacao e funcionamen- 
to de um micro CPD em uma empresa comer- 
cial nesta cidade, 6 sdcio da Data Shopping 
S/C Ltda., empresa especializada em assesso- 
rs, desenvolvimento de software e treina- 
men to em compu ta$ao. 
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Figura 4 



PRINT SPC (DIST2) ;B$ 
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Figura 5 



PRINT SPC ( DIST3-LEN ( A$ ) -LEN ( Y$ ) ) ; Y$ • 
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Figura 6 



PRINT SPC ( DIST4 -LEN (Y$) ) ;Y$ 
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Figura 7 
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Depois do a vem o b, e assim por diante... Mas parece que seu micro da I inha 
Sinclair se atrapa/ha um pouco com isso. Ajude-o a achar a sequencia certa 



A sequencia fora de ordem 

Mauro An tunes 



E ste e um jogo aparentemente facil, 
mas que podera deixa-lo com a pulga 
arras da orelha tentando achar o me- 
Ihor caminho para por na sequencia 
certa a desordem que o seu micro da linha 
Sinclair fara com letras ou numeros. 

O programa gera um quadro semelhante ao 
que esta na figura 1. O niimero de linhas e co- 
lunas e defmido por voce (ha um minimo e 
um maximo para cad a um), assim como os ca- 
racteres: letras ou numeros. Sua tarefa sera, 
portanto, arrumar a bagunfa, ou seja, colocar 



as pedras (caracteres) na ordem certa, movi- 
mentando-as com as teclas 5. 6, 7 e 8. O as- 
pecto final do quadro devera ficar, no nosso 
exemplo, igual ao da figura 2. 



c 


B 


Fig. 1 


A 


B 


A 


El 




c 


□ 



Observances importantes: a movimentanao 
devera ser feita da letra ou ndmero para o ca- 
rater □ , e nunca vice-versa. O niimero ma- 
ximo de jogadas vai variar de acordo com o 
tamanho do quadro. Ponha a cuca para fun- 
cionarl 



Mauro An tunes 6 Engenheiro Eletricista, for- 
mado em 82 pela UFSM, e usudrio de um 
TK85. 



Sequencia 



1 REM SEQUENCIA - MAURO A.B. 

5 SLOW 
10 LET CJ = 0 
15 LET G=0 
20 LET H=0 

30 PRINT AT 0,0; "QUANTAS LINH 
AS ? ( 2<L<9 ) " 

35 INPUT M 

40 PRINT , "LINHAS = ";M 
45 PRINT ,, "QUANTAS COLUNAS ?( 
2<C< 1 5 ) " 

50 INPUT N 

55 PRINT , "COLUNAS = ";N 
60 PRINT , , "NUMERO DE CARACTER 
ES = " ;M*N- 1 

65 PRINT , , "VOCE DEFINE OS CAR 
ACTERES . " , , , "O PRIMEIRO DEVE SER 
" , " INTRODUZ IDO 2 VEZES." 

70 PRINT ,, "EXEMPLO: ", ,"SE FOR 
EM A , B ,.C INTRODUZA A,A,B,C" 

75 PRINT ,,"OS MOVIMENTOS SAO 
OBTI DOS " , " PELAS TECLAS 5,6,7 E 8 



80 


DIM 


AS ( M , N ) 






90 


FOR 


P=M TO 


1 STEP -1 


100 


FOR 


Q=N TO 


1 STEP -1 


105 


INPUT AS ( P, 


Q) 




110 


NEXT Q 






120 


NEXT P 






1 30 


LET 


I=M 






140 


LET 


J =N 






150 


LET 


AS ( I , J ) 






155 


FAST 






160 


LET 


A=1 1-2* 


I NT 


(M/2) 


170 


LET 


B=A-2 






180 


LET 


L=9+2*( 


M-INT (M/2)) 


190 


LET 


K=L+2 






200 


LET 


E= 1 7-2* 


I NT 


(N/2) 


210 


LET 


F=E-2 







220 LET C= 1 5+2* ( N-INT ( N/2 ) ) 

230 LET D=C+2 
240 CLS 

250 FOR P=F TO D 

260 PRINT AT B.Pj'O’ .-AT K,P;'1S" 

270 NEXT P 

280 FOR P=B TO K 

290 PRINT AT P,F;'D;AT P,D; M EJ" 

300 NEXT P 

360 FOR P=A TO L STEP 2 

370 LET G=G+ 1 

380 FOR Q=E TO C STEP 2 

390 LET H=H+ 1 

400 PRINT AT P,Q;A$(G,H) 

410 NEXT Q 
420 LET H=0 
430 NEXT P 
440 LET G=0 
450 SLOW 

470 IF INKEY$=" " THEN GOTO 470 
480 LET B$=INKEY$ 

490 PRINT AT 2 1 , 0 ; "JOGADAS =";C 
J+1 

500 IF B$="5" THEN GOTO 650 
505 IF B$="6" THEN GOTO 750 
510 IF B$="7" THEN GOTO 850 
515 IF B$="8" THEN GOTO 530 
520 GOTO 950 

530 IF J>1 AND J<=N THEN GOTO 5 
70 

540 PRINT AT 0,0; "VOCE JOGOU ER 
RADO" 

550 PAUSE 60 
560 PRINT AT 0,0;" 

565 GOTO 470 

570 PRINT AT L,C; AS ( I , J- 1 ) 

580 PRINT AT L,C-2;TT 
590 LET AS ( I , J ) =A$ ( I , J- 1 ) 

600 LET AS ( I , J- 1 ) ='□" 

610 LET J=J-1 
620 LET C=C-2 
630 LET CJ=CJ+1 



640 GOTO 47'0 

650 IF J<1 OR J>=N THEN -GOTO 54 

0 

670 PRINT AT L,C; AS ( I , J+ 1 ) 

680 PRINT AT L,C+2;I3" 

690 LET AS ( I , J ) =A$ ( I , J+ 1 ) 

700 LET AS (I, J+1 ) = 'D" 

710 LET J=J+1 
720 LET C=C+2 
730 LET CJ=CJ+1 
740 GOTO 470 

750 IF I< = 1 OR I>M THEN GOTO 54 

0 

770 PRINT AT L,C; AS ( I- 1 , J ) 

780 PRINT AT L-2,C;"E3" 

790 LET AS ( I , J ) =AS ( I- 1 , J ) 

800 LET A$( 1-1 ,J)=n" 

810 LET 1=1-1 
820 LET L=L-2 
830 LET CJ=CJ+1 
840 GOTO 470 

850 IF I<1 OR I > =M THEN GOTO 54 

0 

870 PRINT AT L,C;A$( 1+1 ,J) 

880 PRINT AT L+2,C;'^•' 

890 LET A$( I ,J)=AS( 1+1 ,J) 

900 LET A$ (1+1 ,J)=0" 

910 LET 1=1+1 
920 LET L=L+2 
930 LET CJ=CJ+1 
940 GOTO 470 

950 PRINT AT 0,0;"OUTRA VEZ ?(S 
/N)" 

960 IF INKEY$=" “ THEN GOTO 960 
970 IF INKEYS="N” THEN GOTO 102 

0 

980 CLS 
990 GOTO 5 

1000 SAVE "SEQUENCIA" 

1010 RUN 
1020 CLS 

1030 PRINT AT 10,12;"FIM" 

1111 STOP ■ 

m 




APPLEKIT 65100 



APPLEKIT 65000 



65010 






APPLEKIT 65020 



APPLEKIT 65400 



APPLEKIT 65300 



APPLEKIX65p00 j Placa de circuito impresso. APPLEKIT 650 10 1 Conjunto de soquetes, conectores, resistores e ca- 
pacitores. 1 APPLEKIT 650201 Conjunto de semicondutores, TTL’s, LSI e memorias (As memorias EPROM sao forneci- 
das com gravagao) . I APP LEKIT 65100 Conjunto de teclado alfanumerico com 52 teclas e componentes, circuito im- 
presso. i^^PLEKIT. 6^200 ^onte de alimenta^ao tipo chaveado. ; APPLEKIT 65300 Caixa de microcomputador em 
poliuretano. 1 APPLEKIT 654001 Manual de montagem e teste de micro. 
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Para quern nao tern muita "intimidade" com os mnemonicos, ou para os que querem 
uma garantia a mais de sucesso, este Editor e um verdadeiro achado! 



Editor Assembler 
para a linha Sinclair 

Luiz Imbroisi Filho 



Q uando se escreve programas em 
linguagem de maquina a possi- 
bilidade de erro e muito grande, 
o que leva a maioria dos usua- 
rios a perdera p-ciencia e aban- 
donar seus programas no meio do desen- 
volvimento. No entanto, dispondo de 
um Editor Assembler, o usuario podera 
eliminar boa parte das dificuldades ine- 
rentes a esse tipo de programa 9 ao, }£ 
que o programa passa a ser escrito dire- 
tamente em mnemonicos, facilitando 
sua elabora^ao, escrita e corre 9 ao. 

0 objetivo deste artigo £, portanto, 
apresentar um Editor para computado- 
res da linha Sinclair com 16 kb de me- 
m6ria, no qual foi aproveitado o proprio 
sistema BASIC como base de opera^o. 
Os mnemonicos sao escritos dentro de 
linhas REM e a montagem e feita pelo 
Editor Assembler na primeira linha do 
BASIC, a qual sera criada pelo Editor 
durante o processo de montagem. Fo- 
ram incluidas, alem de todas as instru- 
9 oes do Z80, duas instn^oes especiais 
de carregamento (LD), uma que permi- 
te escrever na memoria em hexadecimal 



(para colocar dados, por exemplo) e ou- 
tra para escrever codigos de caracteres 
na memoria. 

ESCREVENDO 0 EDITOR 

Depois de escrito, o Editor estara lo- 
calizado apos o topo da memoria 
(RAMTOP) redimensionado para a posi- 
9 ao 29.440. Apesar disso, ele podera 
ser gravado em Fita, pois antes da grava- 
?ao ele 6 transferido para uma string do 
BASIC. Quando o programa e passado 
de volta para o computador, ele 6 auto- 
maticamente recolocado apos o RTP. 

0 Editor gasta aproximadamente 3 
kb de memdria, e para escreve-lo o pro- 
cedimento a ser adotado 6 o seguinte: 

1 - execute o comando RAND USR 0; 

2 - execute o comando POKE 16389, 
115; 

3 — com o auxflio do Monitor Assembler , 
publicado na MICRO SISTEMAS nume- 
ro 23, ou da listagem 1 do MICRO BUG, 
publicado na MICRO SISTEMAS nume- 
ro 32, introduza o Editor Assembler (lis- 
tagem 1); 



4 — escreva o programa em BASIC (lis- 
tagem 2); 

Atemjao: 6 importante que o progra- 
ma BASIC seja digitado exatamente 
conforme a listagem 2. Para verificar se 
algum erro foi cometido, de o coman- 
do direto (fora do programa): 

PRINT PEEK 16396 

A resposta devera ser 32; caso contrario, 
revise o programa e corrija-o. 

5 — ponha o gravador para gravar; 

6 - de RUN. 

Aparecera na tela, apos a gravaijao e 
sempre que o programa for copiado no 
computador, o titulo EDITOR ASSEM- 
BLER. De BREAK e logo apds o co- 
mando NEW coloque o computador em 
FAST e o Editor estara pronto para ser 
usado. £ recomendada a utiliza 9 ao do 
modo FAST durante o processo de mon- 
tagem, ]£ que o Editor reorganiza algu- 
mas varidveis de controle do sistema 
BASIC, incluida a de controle de tela. 

Para copiar o programa do gravador, 
de o comando LOAD “EDITOR”; de- 



PROCURE QUEM 
REALMENTE ENTENDE. 

^MICROMAQ 

R. Sete de Setembro, 92 - Lj. 106 
Tel.: 222-6088 - Rio de Janeiro 



POR QUE NAO TUDO EM 
UM SO LUGAR? 

Microcomputadores, Sotware, Publica^oes 
Especializadas, Cursos e Manuten^ao de Equipamentos. 




pois proceda de acordo com o paragrafo 
anterior. 



SISTEMA OPERACIONAL 
DO EDITOR 

0 desenvolvimento de um programa 
em Assembler 6 feito em duas fases: pri- 
meiro escreve-se os mnemonicos nas li- 
nhas REM (do sistema BASIC) e depois 
monta-se o programa. 

Na primeira fase escreva os mnemoni- 
cos em linhas REM consecutivas, a par- 
tir da linha 100. Quando na montagem, 
todas e somente as linhas REM consecu- 
tivas a partir da 100 serao montadas. 
Por exemplo: 

90 REM LD A,B 
100 REM LDIR 
1 1 0 REM EX DE , HL 
120 REM LD C , 09 
130 REM NOP 
140 LET A=95 
150 REM LD HL ,3922 

Neste programa, as linhas 90, 140 e 150 
nao serao montadas. Observa 9 ao: se nao 
existir a linha 100, ou entao se esta nao 
for REM, nada sera montado. 

Pode-se escrever mais de um mnemo- 
nico na mesma linha REM, mas para tal 
e preciso separa-los por uma barra incli- 
nada (sinal de divisao no BASIC). Nao 
ha limite para o numero de mnemoni- 
cos por linha. No programa a seguir, por 
exemplo, todos os mnemonicos serao 
montados: 

100 REM SUB C/LD A,C/CPIR 
113 REM IN A, ( 08 ) /RET 

Para escrever os mnemonicos siga as 
seguintes regras: 

1 — Instrugoes normais: 

1.1 - use apenas os mnemonicos do 
Z80 e as duas instru 9 oes especiais de 
carregamento (LD); 

1 .2 - separe o codigo de opera 9 ao e o (s) 
operando (s) por um espa 9 o; por exem- 
plo: 

100 REM LD H , L 

Observa 9 §o: o espa 90 que aparece entre 
o REM e o codigo de opera 9 ao e proprio 
do REM, ou seja, ele nao foi (e nao deve 
ser) digitado. 

1 .3 - n§o deixe espa 90 s entre mnemoni- 
cos e as barras de separa 9 ao; por exem- 
plo: 



100 REM CP H/NOP/DAA/XOR B 

1 .4 - o ultimo mnemonico de uma li- 
nha REM nao deve ser sucedido pela 
barra de separa 9 ao; 

1 .5 — quando nas opera 96 es aritmdticas 
ou logicas o primeiro operando for o 
acumulador, este nao devera ser escrito; 
a opera 9 ao a seguir, por exemplo, e a 
mesma que ADD A,C: 

100 REM ADD C 

1 .6 - as instru 9 oes condicionais deverao 
apresentar uma virgula separando a con- 
di 9 ao e o dado que vem a seguir; por 
exemplo: 

100 REM JP NZ , 400C 

1 .7 — todos os numeros deverao ser es- 
critos em hexadecimal. 

2 - Instrugoes especiais 

2.1 - LD • • — esta instru 9 ao coloca na 
memoria todos os dados contidos entre 
os asteriscos (cada par de caracteres 6 
um dado a armazenar na memoria, em 
hexadecimal). Por exemplo: 

100 REM LD *80B1C94E1 2* 

esta linha, quando montada, coloca os 
conteudos 80, Bl, C9, 4E e 12 (todos 
em hexadecimal) diretamente na memo- 
ria. 

2.2 - LD “ “ - esta instru 9 ao coloca 
na memoria os codigos de cada um dos 
caracteres contidos entre as aspas. Ela 
funciona de modo a escrever mensagens, 
titulos, caracteres na memdria, princi- 
palmente quando se quer imprimi-los 
na tela. Por exemplo: 

100 REM LD "VANIA" 

Na memoria, serao armazenados os se- 
guintes conteudos em hexadecimal: 

. 3B (codigo de V) 

. 26 (codigo de A) 

. 33 (codigo de N) 

. 2E (codigo de I) 

. 26 (cddigo de A) 

Aten 9 ao: a digita 9 ao dos mnemoni- 
cos deve respeitar a padroniza 9 ao nor- 
mal de sintaxe das instru 9 oes. Na Figura 
1 , no entanto, temos dois casos, onde 
esta padroniza 9 ao nao 6 respeitada. 

MONTAGEM 

Uma vez escrito o programa em As- 
sembler, a montagem 6 feita com o co- 




Figura 1 



mando PRINT USR 30000. Se o pro- 
grama em Assembler estiver sem erro de 
sintaxe, nao so ele sera montado como 
aparecera no canto superior esquerdo da 
tela o numero de bytes gasto por ele. Pa- 
ra testar, tecle o programa: 

100 REM LD HL, ( 400C)/INC HL 

1 10 REM LD (HL) , 3D/RET 

Agora de PRINT USR 30000. Apa- 
recera o numero 7 na tela, que 6 o total 
de bytes gasto pelo programa j £ entao 
montado. Para visualiza-lo, de o coman- 
do LIST. 

Observe que agora existem duas li- 
nhas no BASIC com a mesma numera- 
9^0 (0). A primeira contem o programa 
montado e a segunda 6 usada como pro- 
te 9 ao (nunca apague esta linha). Para ro- 
dar o programa, utilize o comando 
RAND USR 16514 (ou LET A = USR 
16514, etc.). O programa imprimira a 
letra X na tela. 

Vamos entender como isto aconteceu 
analisando o programa: 

. LD HL, (400C): coloca em HL o ende- 
re 90 da tela (tirado do manual). Neste 
endere 90 , o conteudo e 118 (decimal), 
visualmente fora da tela. 

. INC HL: incrementa o par HL, que 
agora contem o endere 90 da primeira 
posi 9 ao visual da tela (coordenadas 0,0 
para o PRINT AT). 

. LD (HL), 3D: coloca no endere 90 da 
primeira posi 9 ao da tela o conteudo 
3D (cddigo da letra X). 

. RET: retorna o comando para o sistema 
BASIC (observe que a rotina em linga- 
gem de maquina funciona como se fosse 
uma sub-rotina do BASIC). Todo pro- 
grama em Assembler deve terminar com 
RET quando tiver que retornar ao 
BASIC; se isto nao acontecer, o opera- 
dor perdera o controle (via teclado) - 
tal nao ocorrera somente se no progra- 
ma em Assembler existir rotina de leitu- 
ra de teclado. 

Resumindo, entao, o procedimento 
para utiliza 9 ao do Editor Assembler (su- 
pondo ja gravado em Fita) £: 

1 — carregar o programa com LOAD 
“EDITOR”; 

2 — dar BREAK, NEW e por fim FAST ; 

3 — escrever seu programa em Assem- 
ber em linhas REM consecutivas a partir 
da linha 100 ; 

4 — montar o programa com o comando 
PRINT USR 30000; feito isso ele estara 
montado na memoria a partir do endere- 
90 16514. 

MENSAGEM DE ERRO 

Quando um dos mnemonicos apresen- M 
ta erro em sua estrutura o Editor nao « 
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EDITOR ASSEMBLER PARA A LINHA SINCLAIR 



Listagem l 



1 DIM A$ ( 3 1 40 ) 

2 RAND USR 29716 

3 SAVE " EDITOR" 

4 POKE 16389,115 

5 RAND USR 017761 

6 SLOW 

7 PRINT AT 10,5;"* EDITOR ASSEMBLER *" 

8 GOTO 8 



0 Editor tamb£m acusa erro quando 
as regras de escrita dos mnemonicos, an* 
teriormente descritas, nao forem respei- 
tadas. Para correpSo do erro, apague o 
mnemonico errado e escreva o certo (uti- 
lizando o comando EDIT do BASIC). 

Este Editor Assembler foi original - 
mente concebido com finalidades dida- 
ticas, mas foi desenvolvido e aperfeipoa- 
do, e em sua forma atual pode ser utili- 
zado na montagem de programas com- 
plexes. Com um pouco de prdtica, sua 
utilizapao torna-se simples, o que fad* 
lita o projeto, o teste e a correpao de 
programas em Assembler. 



executa a montagem e mostra no centro 
da tela a mensagem • ERRO * . Para lo- 
calizd-lo, liste o programa e procure o 
mnemonico que tenha um de seus carac- 
teres invertido. 0 erro esta neste mnemo- 
nico (note que o erro nao esta necessa- 
riamente no cardter invertido). Por 
exemplo: 

100 REM DAA/LD A , G 



Quando for dada a ordem de mon- 
tagem (PRINT USR 30000), o Editor 
mostrard na tela a mensagem de erro 
(nSo existe o mnemonico LD A,G nas 
instru 96 es do Z80). Listando o progra- 
ma, veremos: 

100 REM DAA/LD D , G 

A letra A esta invertida, indicando que 
o mnemonico LD A,G esta errado. 



Engenheiro Operacional Eletrdnico, formado 
pelo Centro Federal de Educapao Tecnoldgica 
Celso Suckow da Fonseca, RJ, Luiz Imbroisi 
Filho da Fonseca 6 atual mente professor de 
Circuitos Digitals e de Eletrdnica nesta mesma 
instituipao. Paralelamente, desen volve hard- 
ware e programas em linguagem de mdquina 
e em BASIC para computadores da linha Sin- 
clair. 
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MICRO SISTEMAS, SEI — Sistemas Eletronicos de Informaedes, divisao 
da Abril Cultural, e Telesp trazem para voce novos programas do 



rELESOFTWARE 



o servigo Videotexto 
para usuarios de 
microcomputadorcs 




PROGRAMAS JA DISPONlVEIS 




Program* 


Autor 


Publicado na 
Edigio N? 


And Use de Ba tango 


Dorley de Jesus Godarth 


33 


Aprendendo Frapoes 


Heber Jorge da Silva 


30 


Biorritmo 


Francisco Luiz Farias Bezerra 


26 


Cdlculo de Areas 


Heber Jorge da Silva 


32 


Cdlculo de Volumes 


Heber Jorge da Silva 


33 


Cat£logo de Disquetes 


Lawrence Falconer King 


29 


Ciclotron, o Jogo das Barreiras 


Hendy Takeshi Yabiku 


28 


Compilador Forth 


Antonio Costa 


22 


Copsys 


Daniel Augusto Martins 


29 


Domind com Som 


E verton Pereira 


32 


Mini Editor de Textos 


Ivan Camilo da Cruz 


31 


PIL — Controle da Fertilidade 


Armando Oscar Cavanha Filho 


31 


Professor J. C. 


Jdneson Carneiro de Azevedo 


18 


Registro Pessoal de Cheques 


Marcelo Renato Rodrigues 


25 


Soletrando 


Heber Jorge da Silva 


30 


Tutor Matemcitico 


Paulo Sergio Gonpalves 


30 


Tod os os mesas, este servigo seri enriquecido com novos programas 
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jCLAPPY apresenta 

MONO, ALICE E EMILIA. 

A ■ A ■ ■ ' ■ I ^ ^ ■ ■ 



voce na 
Elas 



As tres aguardam 
Clappy. 

> sao fabricadas 
pela Elebra e distribui- 
das pela Clappy, que 
alias, tem a Monica, a 
Alice e a Emilia pelo 
prepo mais convidativo. 

Venha ate a Clappy 
e use e abuse de nossos 
consultores tecnicos. 

Eles fazem questao 
de mostrar tudo que a 
Clappy tem em micros, 
perifericos, suprimen- 
tos, softwares, cursos 
de programapao, im- 
plantapao e instalapao 



py. 

oja 



de sistemas. 

E precisando de as- 
sistencia tecnica abuse 
tambem da gente: 
ninguem e tao rapido e 
tao competente neste 
assunto como a Cla 
Venha a nossa I 
ou solicite a visita de 
um representante. 

HLEBRK 

Clappy 

Centro: Av. Rio 
Branco, 12 - Loia e 
Sobreloja.Tel.: (021) 
253-3395. 



Centro: R. Sete de 
Setembro, 88, Loia Q 



ro. »a, Loia 
(galeria).Tels.: (021 
222-5517/222-57 



k 



Prepos 
especiais 
para reven- 
dedores. 



Copacabana: 

R. Pompeu Loureiro, 99. 
Tels.: (021) 236-7175 / 
257-4398 (Aberta 
diariamente das 10 as 
20 boras e aos sabados 
das 9 as 14 boras). Es- 
tacionamento proprio. 

Entregamos em 
todo o Brasil pelo reem- 
bolso Varig. 

Assistencia Tecni- 
ca: Tels.: 234-9929/ 
234-1015. 
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Como elaborar menus computational's? Temos aqui um programa em BASIC que 
vai Ihe mostrar algumas tecnicas que devem ser utilizadas 



Programacao 
em forma de menu 

Hernan Campero Lopez 



A palavra menu, usada como sinonimo de corddpio, 
vem ocupando um lugar bastante solicitado dentro da 
area de processamento de dados. De fato, esta palavra 
nao comepou a ser usada por acaso. Com um signifi- 
cado bastante similar ao cardapio, o menu computational nada 
mais e do que uma lista de optics as quais podemos executar a 
partir de um determinado estdgio do programa. 

£ claro que existem outras formas de elaborar um progra- 
ma, mas o menu, como veremos mais adiante, 6 uma tdcnica 
computacional bastante simples. 

Basicamente, temos dois tipos de usuanos de computador: 
o experiente, que conhece a linguagem e 6 capaz de contornar 
algumas situates de “pane”, e o usuario que nao entende na- 
da, aquele que s6 se interessa por ligar o computador. colocar 
algumas informapoes e coniepar a receber as respostas aos seus 
problemas. Sao estes ultimos que realmente tern demonstrado 
o maior interesse, nos mercados europeu e amencano, a respei- 
to de programas elaborados na forma de menu. 0 motivo 6 
6bvio. 

Quando estamos diante da tela de video, com a unidade de 
disco funcionando, e nos vemos bombardeados por perguntas 
as quais nao sabemos responder ao certo, ai vem as duvidas: 
“Se respondo afirmativamente a uma pergunta, serd que depois 
eu posso desistir?” No entanto, se o programa for do tipo que 
conte'm menu, no lugar do bombardeio de perguntas aparece- 
ra na tela de video uma lista com as oppdes de que dispomos. 

Vejamos um exemplo concreto para facilitar o entendimen- 
to. Vamos supor uma loja que venda veiculos de todos os tipos 
(avides, caminhdes, carros, motos, etc.), e admitamos que para 
cada tipo de veiculo o vendedor deva preen cher os dados num 
certo formato. Uma altemativa neste programa seria a pergun- 
ta: 

"PERTENCE AOS VEICULOS AEREOS ? (S/N)" 

A ela, o vendedor deveria responder sim (S) ou nao (N). 
Logo depois. viria outra pergunta com outro grupo de veicu- 



los, e assim at£ ele responder afirmativamente, quando entSo o 
programa passaria a fazer as perguntas correspondentes ao gru- 
po de veiculos escolhido. 

Uma outra altemativa seria aquela em que o programa pe- 
disse: ENTRE 0 CODIGO DO GRUPO (1,2,3...). 0 usuario 
responderia com uma tabela onde previamente estivessem rela- 
cionados os grupos com os seus respectivos numeros. Por 
exemplo: 

1 . Avioes 

2. Caminhoes 

3 . C a rros 

etc 

Ora, por que n£o juntar os dois casos em um? Teriamos, 
entao, um menu como este: 

Menu de Veiculos 

1 . Avioes 

2 . Caminhoes 

3 . Carros 

etc 

<< ENTRE 0 NUMERO ESC0LHID0>> 

Neste exemplo ilustrativo, as oppoes de escolha sao pou- 
cas (insuficientes, talvez, para mostrar a real necessidade do 
menu), mas imaginem sc fossem mil itens, um supermercado 
por exemplo - seria essencial uma boa visualizapao do agrupa- 
mento dos produtos. Atraves do menu, o usuario nao s6 tern 
uma ampla visSo das altemativas. como tambe'mganha tempo, 
uma vez que nao precisara responder a uma serie de perguntas, 
geralmente iriuteis, dependendo do que ele pretenda fazer. 



Existe ainda uma outra vantagem: podemos executar sub- 
divides em um submenu. No caso do vendedor de veiculos, 
tinhamos, na primeira divisSo, “avioes, caminhoes. carros, etc.”, 
mas poderiamos querer que os caminhoes se classificassem, 
por sua vez, em: “Scania, Mercedes, Ford. Chevrolet, etc.”, 
Seria muito mais facil se. ao escolhermos a oppao “caminhdes”, 
aparecesse na tela um outro menu (este chamado de submenu), 
no qual teriamos: 

MENU DE CAM I NHOES 

1 . Scania 

2. Mercedes 
3 . Ford 

Chevrolet 

etc 

« ENTRE 0 NUMERO ESCOLHIDO» 



DETALHES SOBRE O PROGRAMA 



Nosso programa mostra como elaborar um menu, constan- 
do de oito oppoes. as quais iremos analisar mais adiante. Dare- 
mos ainda uma pequena explicapao sobre os comandos para 
que ele possa ser adaptado a qualquer computador (foi elabo- 
rado com o BASIC do CP/M e por isso existem algumas dife- 
renpas). 

0 objetivo do programa 6 dar ao usuario a oppao de adipao 
e subtrapao de matrizes de m por n elementos, assim como fa- 
cilitar a edipao na parte relacionada aos dados por ele executa- 
dos. 



No quadro de Comentarios anexo, detalliamos a programa- 
pao linha por linha (ou grupo delas quando forem semelhantes). 

A expressao (L1,L2) indica intervalos de linhas, onde LI e a 
linha onde comepa o intervalo a ser explicado e L2 onde ele 
termina (ambas as linhas inclusive). Ao final de cada observa- 
pao correspondente a uma linha que ja foi explicada em ou- 
tra linha anterior, devemos nos refenr com: nnnn: *xxxx, 

onde nnnn e o numero da linha a ser explicada e xxxx a linha 
onde foi previamente mencionada esta instrupao. 

Como podemos observar no programa, a partir da instrupao 
1280 teremos uma serie de repetipdes de comandos. Portanto, 
nos limitaremos a comentar as diferenpas de algumas passagens 
que julgamos de maior interesse. 

Na instrupSb 2060, temos uma mensagem ESTOU EVIPRI- 
MINDO...., a qual ficara na tela enquanto o modulo de oppSo 
dois £ executado. Isto e util quando temos a impressora em ou- 
tro local e nao temos condipdes de verificar seu funcionamen- 
to, ou entSo quando a impressora nao esta on line com o com- 
putador. Esta mensagem tambem ajuda aos menos expenentes, 
aqueles que ficam desesperados quando a tela fica limpa e o 
computador aparentemente sem funcionar. £ o caso das outras 
mensagens semelhantes que aparecem no video (ESTOU CAL- 
CULANDO... etc). 

A partir desta instrupSo, vemos uma seqiiencia de comandos 
LPRINT, que se diferenciam do PRINT por serem executados 
na impressora no lugar do video: L PRINT = Line printer 
PRINT. 

No modulo tres, temos a oportunidade de corrigir alguns 
dados que estejam errados, por falha na digitapao ou na leitu- 
ra da fita ou disco (caso existam). 

£ sempre util poder voltar ao menu de opfdes. Neste mo- 
dulo tres temos esta chance, colocando no lugar do valor da 
variavel a ser corrigida uma letra M. Aldm disso, pergunta se 
queremos efetuar outra corre^ao. Se a resposta for negativa, o >} 
sistema tambem volta ao menu de opfdes. & 






<0^ 



3*> 






<2> v 






sO. 



NUNCA E 
TARDE PARA LER 

/Micro 






• Seu pedido pode ser feito 
por carta, indicando 
quais os numeros 
atrasados que voc£ quer. 


• Acrescente a este um cheque 
cruzado, nominal a ATI 
Editora Ltda., no valor 
correspondente ao seu 
pedido. 


• E nao se esquepa de incluir 
o seu enderepo para 
que nos possamos 
fazer a remessa. 



Aqui estao os nossos enderecos . 



A v. Presidente Wilson, 165 — grupo 1210 — Centro — Rio de Janeiro 
- RJ - CEP 20030 - Tels.: (021 ) 262-5259, 262-6437 e 262-6306. 

Rua Oliveira Dias, 153 - Jardim Paulista - Sao Paulo 
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PROGRAMAQAO EM FORMA DE MENU 





_A_ 






_ B _ 


A ( 1 , 1 ) 


= 


45-00 


B ( 1 , 1 ) 


= 76.00 


A(1 ,2) 


= 


987.00 


B( 1 , 2) 


= 0.00 


A ( 1 ,3) 


= - 


6,543-00 


B(1 ,3) 


= 45.00 


A ( 2 , 1 ) 


= 


8,97^.00 


B ( 2 , 1 ) 


= 87.00 


A ( 2 , 2 ) 


= 


121.00 


B ( 2 , 2 ) 


= 8.00 


A ( 2 , 3 ) 


= 


432.00 


B ( 2 , 3) 


= 66.00 


A ( 3 , 1 ) 


= 


654.00 


B ( 3 , 1 ) 


= 645,500 .00 


A ( 3 i 2 ) 


= 


765.00 


B < 3 , 2) 


= 64,444.00 


A ( 3 , 3) 


= 


4,444.00 


B ( 3 , 3) 


= 9.00 



Figura 1 - Elementos das matrizes A e B (1) 



0 m 6 dulo de op 9 <fo quatro nos leva ao calculo da matriz 
adi^o C =A+B, e o mddulo de 0 P 9 S 0 cinco nos leva ao cal- 
culo da matriz diferenfa C = A— B (ver figuras 1 , 2, 3 e 4). 

Poderiamos ainda ter uma unica opcao que englobasse os 
modulos quatro e cinco, denormnada CALCULOS. Ao ser es- 
colhida, levaria a um submenu com as seguintes op 9 < 3 es: 

1 . C=A+B 

2. C =A - B 

3. C=A *B 

4. C=A/B 

5. DET A (determinante de A) 

6. DET B (determinante de B) 

etc 

«ENTRE 0 NUMERO ESCOLHIDO» 

No modulo seis, temos a impressSo da matriz resultante. 
Vemos na linha 6100 a utiliza 9 ao da mstru^o LPRINT 
USING “########’.' Esta instru 9 ao nos da uma formata 9 ao 
de oito inteiros (separados de tres em tres por uma virgula, is- 
to 6, mil, milhfo e bilhao) e dois decimais seguidos de quatro 
espa 90 s em branco. 





_ A _ 






_ B _ 




A ( 1 , 1 ) 


= 


45.00 


B ( 1 , 1 ) 


- 


76.00 


A ( 1 ,2) 


= 


987.00 


B ( 1 ,2) 


= 


0 .00 


A ( 1 , 3 ) 


= 


-6,543.00 


B ( 1 ,3) 


3 


45.00 


A ( 2 , 1 ) 


3 


8,974.00 


B ( 2 , 1 ) 


= 


87.00 


A ( 2 , 2 ) 


= 


121.00 


B ( 2 , 2 ) 


3 


8 .00 


A ( 2 , 3 ) 


= 


432.00 


B ( 2 , 3 ) 


= 


66.00 


A ( 3 , 1 ) 


3 


654.00 


B ( 3 , 1 ) 


= 


46.00 


A ( 3 , 2 ) 


= 


765-00 


B ( 3 , 2 ) 


= 


64,444.00 


A ( 3 , 3 ) 


= 


4,444.00 


B ( 3 , 3) 


= 


9.00 



Figura 2 - Elementos das matrizes Ae B (2) 



No mridulo sete, temos um afuda-memdria de rapida utili- 
za 9 So, que nos permite ver como se deve responder a algumas 
perguntas formuladas pelo computador. 

E, por ultimo, temos o mddulo de op 9 $o oito. Dele consta 
uma mensagem de seguran 9 a para evitar a saida acidental do 
programa, o que resultaria na perda de todos os dados nele 
existentes. Isto pode ser verificado nas instru 9 oes 8090 e 81 10, 
nas quais vemos que, para qualquer resposta diferente de S 
a pergunta da linha 8090, teremos um imediato retorno ao 
menu de opgdes. 



RODANDO O PROGRAMA 



Executando o programa com dados quaisquer (de acordo 
com as figuras 1 , 2, 3 e 4), vamos checar a resposta e o proce- 
dimento necessdrio. Depois de rodado, escolhemos a op 9 ao 
um, e logo aparecerd: 

"AS DIMENSOES DE UMA MATRIZ S A0 : M LINHAS X N C0LUNAS", 
"POR FAVOR ENTRE M , N?" 



Comentarios 



• (10,100) - Comentarios de 
autoria e classifica^ao do pro- 
grama. 

o (1 10.130) - Comentarios do 
inicio do modulo de elaborafao 
do menu. 

• 135 - APO $ e uma varia- 
vel alfanume'rica de ajuda para o 
operador, com uma dimensao de 
46 indices. Observa^ao: cada 
uma das 46 variaveis alfanume- 
ricas (indexadas) pode ter ate 
255 elementos. 

• 140-0 comando HOME 
limpa o video e coloca o cursor 
no canto superior csquerdo. 

o (150,160) - Escrevemos e 
sublinhamos o titulo MENU DE 
OPQOES. O comando TAB(34) 
nos indica que havcra uma tabu- 
late) de 34 espagos antes de co- 
me^ar a escrever. 

• 170 - Deixamos duas linhas 
em branco. Observations “ : ” 
(dois pontos) indicam uma jun- 
to de duas instru^ocs, isto e, 
equivalent a um comando 
PRINT em uma linha e outro na 
linha seguinte, interligados. 



• (180,240) - Escrevemos o 
menu em si, ou seja, a parte de 
visuaUzafao da cscolha de uma 
opto, com uma tabulate de 
25 espai;os. 

• 250 - O comando VTAB 20 
dcsloca o cursor 20 linhas para 
baixo, sem apagar o que estava 
anteriormente escrito na tela, 
'a nao ser, e claro, o conteudo 
da linha na qual vamos escrever. 
Estas 20 linhas serao contadas 
a partir da linha ondc se encon- 
trava o cursor na hora da execu- 
to do comando. Por exemplo:. 
sc o cursor se encontrava na 
linha 3, passara para a linha 23.' 
A instruvao PRINT TAB(29) 
mandara escrever a 29 espa?os' 
(a partir da esqucrda) a mensa- 
gem entre aspas. 

• 260 - A instrui^ao HTAB 55 
coloca o cursor na posi^ao 55, 
isto e. a 55 espa^os contando da 
csquerda para a dircita na linha 
em que sc encontra, sem apagar 
o que ja existe no video. 

o 270 - Esta instru^ao nos 
permite interromper o programa 



ate que um carater seja entrado 
pelo terminal. Este carater e al- 
fanumerico; por isso, depois da 
instru^ao GET, temos E$, onde 
sera armazenado o carater entra- 
do. A vantagem desta instru^ao 
e que ela dispensa o uso de 
RETURN ou ENTER depois de 
entrado o carater. Sua limitayao 
e que ela so aceita um carater 
alfanumerico. 

• 280 - A instnnjao I =VAL 
(E $) significa que I recebe o va- 
lor nume'rico da variavel E S . Co- 
mo em ES armazenamos o nu- 
mero de opto em forma de ca- 
rater alfanumerico, agora o 
transformamos em numerico. 

• 290 - A instrucao ON I GO- 
SUB 1000 ,2000 .3000, etc... na- 
da mais e do que uma unica 
instrucao equivalente a : 

IF 1=1 GOSUB 1000 
IF 1=2 GOSUB 2000 
IF 1=3 GOSUB 3000 
etc. 

• 300 — No caso de 1=8, des- 
vie para a instrucao 8000. 



• 310 - Desvie para 140. Com 
esta instrucao, nos protegemos 
de uma entrada nao valida, ja 
que, se isto acontece, ele volta a 
instrucao de niimero 140, que 
repete o menu. 

• (1000,1030) - Comentarios 
indicando o modulo de opera- 
to da opto numero um. 

• 1040 - * 140. 

• 1050 - *(150,160). 

• 1070 -*250. 

• 1080 -* (150,160). 

• (1090,1270) - Vemos que 
alguns dos comandos usados 
neste intervalo ja foram utili-' 
zados e explicados anteriormen- 
te. Os outros sJo comuns a to- 
dos os tipos de BASIC. 

• 1 280 - Retomamos pela ins- 
tru«;ao 300, que nao se cumpre, 
passando para a 310, que e um 
desvio para a instrucao 140 (ini- 
cio do menu). 

• OBS - Para as explicacoes 
do comando LPRINT USING 

»• * 
veja referenda no modulo de 
opto seis. 



Respondemos 3, 3 RETURN e a continua 9 ao serd: 

ENTRE OS VALORES CORRESPONDENCES 

A ( 1 ,1) = 45 

A ( 1 ,2) = 

etc 

Ao entrar'todos os valores da matriz A, o computador co- 
me 9 ara a perguntar os valores da matriz B. Terminada a entra- 
da, voltamos ao menu de opgdes. 

Depois, apertamos a op 9 ao dois. Imprimimos os dados, e o 
programa retoma de novo ao menu (nSo se esque 9 a de ver na 
figura 1 os elementos das matrizes A e B). 




Figura 3 
- Elementos da 
matriz C=A+B 



os resultados da matriz C (ver figura 3). Feito isso, calcula- 
mos C = A-B a partir da altemativa cinco (ver figura 4). 

A op 9 ao sete fornecerd um pequeno resumo que aparecera 
no video por partes at£ que se aperte uma tecla qualquer para 
continuar. Para ter iddia do que aparecera no video, leia dire- 
tamente na listagem as instru 96 es 7050, 7490. 

Finalmente aperto oito, leio a mensagem de seguran 9 a e res- 
pondo com S a pergunta DESEJA MESMO ABANDONAR 
(S/N), obtendo assim uma mensagem de FIM no centro da 
tela. Caso nao queira abandonar o programa, aperto N. 

Note que este programa s 6 permitira usar matrizes de or- 
dem maxima 10 , j i que nao existe instru 9 ao de dimensiona- 
mento capaz de liberar o uso de indices maiores. No caso de se 
desejar matrizes de ordem maior — 20 , por exemplo -, esta 
instru 9 ao deveria ser acrescentada: 

135 DIM AP0$(^6) ,A(20,20) , B ( 20 , 20 ) 



a qual poderd ser de dimensdes ainda maiores. 

Uma observa 9 So: APOS(46) deverd ficar constante sempre 
que modificada a instru 9 ao 135 (veja no quadro de Comentd- 
rios a linha 135). 



Heman Campero Lopez 6 estudante de Engenharia no Instituto de En- 
genharia Paulista. Participou de trabalhos nas Areas de processadores de 
textos, otimizagao. comercial-con tAbil, dentifica, gestao hospitalar etc. 
Conhece as linguagens BASIC, FORTRAN e Pascal e trabalha com os 
sistemas DOS e CPM, ambos disponfveis em seu Apple II com 64 Kb. 




Agora vamos supor que queremos corrigir o dado B(3,l), 
que tern o valor original de 46, para 645500 (figura 2). Aperta- 
mos a op 9 ao tres e aparecera a pergunta VOCE DESEJA COR- 
RIGIR UM DADO QUE E DO TIPO: “ ” APS 04)= VALOR, 
com lugar para entrar tres dados. Para interpretar o significa- 
do da pergunta, devemos usar AP$= no me da matriz (A ou B) 
e os indices do elemento a ser corrigido: I, J. 

Para corrigir B(3,l), respondemos B,3,l. Imediatamente 
aparecerd no video: 

"QUAL E 0 VALOR DE B(3,l)" 



A esta pergunta responderemos com 645500. 

A outra pergunta OUTRA CORREQAO (S/N) que vem a 
seguir, respondemos N, pois nSo pretendemos corrigir outro 
dado. Caso contrario, responder iamos S, e as perguntas seriam 
repetidas novamente. 

Ao responder N, voltamos ao menu e, para verificar a cor- 
re 9 ao feita, escolho a altemativa dois. 

Voltando automaticamente ao menu ap 6 s a impressao, en- 
tro com a op 9 ao quatro para calcular a matriz C = A+B. Apos 
o calculo, retomamos mais uma vez ao menu de opgdes (ou 
principal), de onde agora escolhemos a altemativa seis para ver 



Menu 



10 REM imiiiMiMmitMiMitiiMMiitmii 

20 REM * PROGRAMA DEMONSTRATI VO DE MENU COM * 

30 REM « UTILI ZACAO DE OPERACOES MATRICIAIS t 

40 REM ( t 

50 REM * POR I HERNAN CAMPERO LOPEZ t 

60 REM t * 

70 REM 
60 REM 

90 REM 

100 REM 
HO REM 

120 REM ♦ MENU DE OPCOES ♦ 

130 REM ♦*♦♦♦♦♦*♦♦♦♦♦♦♦♦♦♦ 

135 DIM APO* (46) 

140 HOME 

ISO PRINT TAB<34> "MENU DE OPCOES" 

160 PRINT TAB (34)” " 

170 PRINTjPRINT 

ISO PRINT T AB < 25 > " 1 . ENTRAR DADOS (MATRIZES)" 

190 PRINT TAB (25) "2. VERIFICAR DADOS ( IMPRESSORA) " 

200 PRINT TAB (25) "3. CORRIGIR DADOS" 

210 PRINT TAB (25) "4 • CALCULO DE C-A*B" 

220 PRINT TAB (25) "5. CALCULO DE C«A-B" 

225 PRINT TAB (25) "6. RESPOSTA (C) P/ IMPRESSORA" 

230 PRINT TAB (25) "7. RESUMO EXPLICATIVO (PRGMA) " 

240 PRINT TAB (25) "8. ABANDONAR 0 PROCESSO" 

250 VTAB 20l PRINT TAB(29>“< ESCOLHA UM NUMERO >" 

260 HTAB 55 
270 GET E* 

280 I-VAL(E*> 

290 ON I GOSUB 1000,2000,3000,4000,5000,6000,7000 
300 IF 1-8 GOTO 8000 
310 GOTO 140 
lOOO REM 

1020 REM ♦ MODULO DE OPCAO 1 ♦ 

1030 REM ++♦♦♦♦*+♦♦++♦++♦♦♦+♦♦ 

1040 HOME 

1050 PRINT TAB (14) "AS DIMENSOES DE UMA MATRIZ SAOs M LINHA 
S X N COLUNAS" 

1070 VTAB 10 

1080 PRINT TAB (30) "POR FAVOR ENTRE M.N ,M | 

1090 INPUT M.N 
1100 FOR I - 1 TO M 
1110 FOR J - 1 TO N 
1115 HOME 

1120 PRINT TAB(24) "ENTRE OS VALORES CORRESPONDENTES" 

1130 PRINT TAB (24) " " 



» 
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PROGRAMAQAO EM FORMA DE MENU 



1140 VTAB SlHTAB 24 

11 SO PRINT"A("t It ", "1 J I ">-•• * 

1160 INPUT A(I,J> 

1170 NEXT J 
1 ISO NEXT I 
1190 FOR I -1 TO M 
1200 FOR J-l TO N 
1203 HOME 

1210 PRINT TAB (24) "ENTRE OS VALORES CORRESPONDENTES" 

1220 PRINT TAB (24)" ” 

1230 VTAB SlHTAB 24 

1240 PRINT"B("| It ", "I Jt | 

1230 INPUT B(I.J) 

1260 NEXT J 
1270 NEXT I 
1280 RETURN 
2000 REM 

2010 REM ♦♦♦«•♦♦♦♦♦♦+♦♦♦♦♦♦+♦♦•► 

2020 REM ♦ MODULO DE OPCAO 2 * 

2040 HOME 

2030 VTAB 1 2 I HT AB 30 

2060 PRINT“ESTOU IMPRIMINDO. . . . " 

2070 LPRINT TAB ( 19) "ESTES SAO OS ELEMENTOS DAS MATRIZES A E 
B" 

2080 LPRINT TAB ( 19) '' 

2090 LPRINT i LPRINT 
2100 LPRINT TAB (11) "A" | 

2110 LPRINT TABOO) "B" 

2120 LPRINT TAB (10)“ 

2130 LPRINT TAB (49) “ “ 

2140 FOR 1-1 TO M 
2130 FOR J-l TO N 

2160 LPR I NT “ A < " | 1 1 ” , " | J | " > — “ | I LPR I NT USINB “•(MMMMMMt, . **“ | A 
(I,J> | 

2170 LPRINT TAB ( 40) “B(“t It ** » “|J| ” I I LPRINT USING “«#•##*(• 

*. . »•" 1 B ( I , J ) 

2180 NEXT J 
2190 NEXT I 
2193 LPRINT I LPRINT 
2200 RETURN 
3000 REM 

3020 REM ♦ MODULO DE OPCAO 3 * 

3030 REM 
3040 HOME 

3030 PRINT TAB (21 ) "VOCE DESEJA CORRIGIR UM DADO OUE E DO TI 
POt " 

3070 PRINT t PRINT t HTAB 21 
3080 PR I NT " AP* ( I , J ) —VALOR " 

3090 VTAB IOiHTAB 21 

3100 PRINT"POR FAVOR ENTRE AP*,I,J “| 

31 10 INPUT AP*. I, J 
3120 HOME 

3130 PRINT TAB (27) "0 DADO A SER CORRIGIDO E l“ 

3140 VTAB SlHTAB 27 

3150 PRINT AP*| “ <“| I| ", "| J| ”>«VALOR“ 

3160 PRINTiPRINTiPRINT 
3180 VTAB 22 i HTAB 6 

3190 PRINT-PARA VOLTAR AO MENU DE OPCOES, ENTRE A LETRA <M 
> NO LUGAR DO VALOR" 

3200 VTAB 9 t HTAB 27 

3210 INPUT "VALOR DA VAR I AVEL- “ I V* 

3220 IF V*-"M" THEN RETURN 
3230 X-VALIV*) 

3240 IF AP*-"A“ THEN A(I,J)-X 
3230, IF AP*-"B" THEN B(I,J)-X 

3232 VTAB 13i HTAB 27 

3234 PRINT "OUTRA CORRECAO (B/N) “ 

3233 GETS* 

3236 IF S*»"S" GOTO 3000 
3260 RETURN 
4000 REM 

4020 REM ♦ MODULO DE OPCAO 4 ♦ 

4030 REM ♦+♦♦♦♦*+♦♦♦♦♦♦♦♦♦♦♦♦♦ 

4040 HOME 

4030 VTAB 12IHTAB 27 

4060 PRINT"ESTOU CALCULANDO C«A«-B. . . . " 

4070 FOR I- 1 TO M 

4080 FOR J-l TO N 

4090 C(I,J)»A(I, J)*B(I, J) 

4100 NEXT J 
4110 NEXT I 
4113 C*-"A*B" 

4120 RETURN 
3000 REM 
3010 REM 

3020 REM ♦ MODULO DE OPCAO 3 < 

3030 REM ♦*♦♦♦♦♦♦♦♦♦♦«■■♦••*•♦+♦*♦♦■ 

3040 HOME 

3050 VTAB 12 t HTAB 27 

3060 PRINT-ESTOU CALCULANDO C-A-B. . . . " 

5070 FOR 1-1 TO M 
3080 FOR J-l TO N 
3090 C ( I • J ) —A ( I , J ) — B ( I , J ) 

5100 NEXT J 
31 10 NEXT I 
3113 C*— "A-B" 

3120 RETURN 
6000 REM 

6020 REM ♦ MODULO DE OPCAO 6 ♦ 

6030 REM ♦♦♦++♦♦♦♦+♦♦♦♦♦♦♦**♦♦ 

6040 HOME 



VTAB 12l HTAB 30 
PRINT'ESTOU IMPRIMINDO • 

LPRINT TAB(21 > “ESTES SAO OS ELEMENTOS DA MATRIZ C-“|C* 

LPRINT TAB (21 ) “ “ 

LPRINTl LPRINT 
FOR 1-1 TO M 
FOR J-l TO N 

LPRINT TAB (30) "C ( “ t I | " I J t " >— " I 
LPRINT USING "1MMMMMMMI, .(Ml "|C(I,J> 

NEXT J 
NEXT I 

LPR I NT I LPR I NT 

RETURN 

REM 

REM ♦ MODULO DE OPCAO 7 ♦ 

HOME 

APO* ( 1 ) — " AO COMECAR A EXECUCAO DESTE PROGRAMA APA-" 
APO* ( 2) — "RECERA NO VIDEO O ’MENU DE OPCOES’, E UMA" 
AP0*(3)-"LISTA DE ALTERNAT 1 VAS. " 

APO* (4 ) — “ " 

AP0*(3)-"ESC0LHEND0 ALGUM NUMERO, LHE SERAO FEI TAB” 
APO* (6) — " ALGUMAS PERGUNTAS AS OUAIS DEVERA RESPON-" 
AP0*(7)-"DER DA SEGUINTE MANEIRAi” 

APO*(B>-"" 

AP0*(9>-"1. OUANDO DEVA ENTRAR 2 NUMEROS (POR EX." 
APO* ( 10) — " 'POR FAVOR ENTRE M.N !’), VOCE DEVERA“ 

AP0*<11>«“ ENTRAR OS VALORES DE ’M* E ’ N’ SEPA 

APO* (12)-“ RADOS POR VIRGULA. “ 

APO* ( 13)—“" 

APO* ( 14) — " FINALIZADO ISSO APERTE < RETURN >. “ 

APO* (13)-“" 

APO* (16) — “ “ 

APO* (17) -"2. OUANDO SEJA PERGUNTADO UM UNICO VA-" 
APO* (18)-" LOR (POR EX. ’ENTRE OS VALORES C0-" 
APO* ( 19) — ’’ RRESPONDENTES’ E LOGO EM SEGUIDA 0" 
APO* (20) —" ELEMENTO DA MATRIZ), ESCREVA-0 E COMO” 
APO* (21)-" • SEMPRE APERTE < RE TURN). " 

APO* ( 22 ) — •”’ 

APO* (23)-"" 

APO* (24) -"3. OUANDO FOR PERGUNTADO UM NOME OU UM" 
APO* (23)-" DADO ALFANUMERICO, VOCE DEVERA ESCRE-” 
APO* (26)-” VE-LO NORMALMENTE E LOGO DEPOIS APER-" 
APO* ( 27) — " TAR < RETURN). " 

APO* (28)-”“ 

APO* (29)-’’" 

APO* (30) -"4. SE FOR PEDIDO PARA ENTRAR UMA SEOUEN-” 
APO* ( 31 > — " CIA DE NOMES, NUMEROS, ETC..., NAO SE" 

APO* (32)-“ ESQUECA DE OUE ELES DEVERAO ESTAR SE-’* 
APO* (33)-" PARADOS POR VIRGULAS." 

APO* (34)-"" 

APO* (33)-“" 

APO* (36) -"3. CASO VOCE COMETA ALGUM ERRO NA ENTRA-* 
APO* (37)-" DA DE DADOS, (OUANDO TEM OUE RESPON-" 

APO* (38)-“ DER COM UM NUMERO E VOCE COLOCA ALGU-" 

APO* (39)-" MA LETRA, OU ESOUECE DAS VIRGULAS PA-" 
APO* (40)-" RA SEPARAR DADOS. ETC...), APARECERA" 
APO* (41)-" UM ERRO DE ENTRADA DE DADOS. MAS NAO" 
APO* (42)-" SE PREOCUPE, 0 COMPUTADOR LOGO APOS” 
APO* (43)-" ESSE ERRO COLOCA UM SIMBOLO DE INTE-" 
APO* (44)-” RROGACAO *?' INDICANDO OUE VOCE PODE” 
APO* ( 43) — " REENTRAR OS DADOS ANTES PEDIDOS. " 

HOME 

FOR 1-1 TO 20 
PRINT TAB (20) APO* ( I ) 

NEXT I 
PRINTiPRINT 
GOSUB 7800 
GET S* 

HOME 

FOR 1-21 TO 40 
PRINT TAB (20) APO* ( I ) 

NEXT I 
PRINTiPRINT 
GOSUB 7800 
GET S* 

HOME 

FOR I- 41 TO 43 
PRINT TAB (20) APO* (I) 

NEXT I 
PRINTiPRINT 
GOSUB 7800 

VTAB 20 I HTAB 33lPRINT"B0M PROGRAMA •" 

GET S* 

RETURN 

PRINT TAB ( 10) ’’<< APERTE OUALOUER TECLA PARA CONTINUAR’ 

»" 

RETURN 

REM ♦ MODULO DE OPCAO 8 ♦ 

HOME 
VTAB 4 

PRINT TAB (10) "AO ESCOLHER ESTA OPCAO VOCE RESOL VEU SA1 
R DO PROGRAMA. CON-" 

PRINT TAB ( 10) "SEQUENTEMENTE APAGAR 0 CONTEUDO DA M 
EMORIA (DADOS) . JA" 

PRINT TAB (10) "EXISTENTES. " 

VTAB lSlHTAB 23 

PR I NT "DESEJA MESMO ABANDONAR ? <S/N> “ 

GET S* 

IF S*0"S" GOTO 140 

HOMEiVTAB 12l HTAB 37iPRINT “FIM" 

VTAB 24 I HTAB 80 
END 



"2. OUANDO SEJA PERGUNTADO UM UNICO VA-" 
" LOR (POR EX. ’ENTRE OS VALORES CO-" 
" RRESPONDENTES’ E LOGO EM SEGUIDA 0" 
” ELEMENTO DA MATRIZ). ESCREVA-0 E COMO" 
" • SEMPRE APERTE < RETURN). " 



OUANDO FOR PERGUNTADO UM NOME OU UM" 
DADO ALFANUMERICO, VOCE DEVERA ESCRE-" 
VE-LO NORMALMENTE E LOGO DEPOIS APER-" 
TAR < RETURN)." 



SE FOR PEDIDO PARA ENTRAR UMA SEOUEN-" 
CIA DE NOMES, NUMEROS, ETC..., NAO SE" 
ESQUECA DE OUE ELES DEVERAO ESTAR SE-" 
PARADOS POR VIRGULAS." 



CASO VOCE COMETA ALGUM ERRO NA ENTRA-* 
DA DE DADOS, (OUANDO TEM OUE RESPON-" 
DER COM UM NUMERO E VOCE COLOCA ALGU-" 
MA LETRA, OU ESOUECE DAS VIRGULAS PA-" 
RA SEPARAR DADOS, ETC...). APARECERA" 
UM ERRO DE ENTRADA DE DADOS. MAS NAO” 
SE PREOCUPE, 0 COMPUTADOR LOGO APOS" 
ESSE ERRO COLOCA UM SIMBOLO DE INTE-" 
RROGACAO ’?' INDICANDO OUE VOCE PODE" 
REENTRAR OS DADOS ANTES PEDIDOS." 



CONTEUDO DA 



26 



MICRO SISTEMAS, Junho/84 



MAIS SUCESSO RARA VOCE! 




CURSOS DE APERFEIQOAMENTO 



Comece uma nova fase na sua vida profissional. 

Os CURSOS CEDM levam ate voce o mais moderno ensino 
tecnico programado e desenvolvido no Pafs. 






888B881' 



CURSO DE ELETRONICA DIGITAL 



55 i" m * L 

: !M 
s 



Voce mesmo pode desenvolver um ritmo prdprio de estudo. A lin- 
guagem simplificada dos CURSOS CEDM permite aprendizado tecil. E 
para esclarecer quaiquer duvida, o CEDM coloca A sua disposigSo uma 
equips de professores sempre muito bem acessorada. AI6m disso, voc6 
recebe KITS preparados para os seus exercfcios prSticos. 

Agil, moderno e perfeitamente adequado A nossa realidade, os CUR- 
SOS CEDM por correspondence garantem condigdes ideais para o seu 
aperfeigoamento profissional. 



Voc6 tambem pode ganhar um MICROCOMPUTADOR. 

Telefone (0432) 23-9674 ou cotoque hoje 
mesmo no Correio o cupom CEDM. 

Em poucos dies vocfi recebe nossos cat^ logos de apresentacao. 





Avenida Sfio Paulo, 718 - Fone 10432) 23-9674. 
LJLJL’I I CAIXA POSTAL 1642 -CEP 86100 - Londrina - PR 
| CURSO DE APERFEIQOAMENTO POR CORRESPONDENCE 

Solicito o mais rdpido possfvel Informagdes sem compromisso sobre o 

CURSO de 

Nome 

I Rua 

Cidade 

I Bairro CEP 



M6todos novos e in^ditos de ensino garantem um aprendizado 
pratico muito melhor. Em cada nova ligSo, apostilas ilustradas 
ensinam tudo sobre Amplificadores. Caixas Acusticas. Equalizadores, 
Toca-discos, Sintonizadores AM/FM, Gravadores e Toca Fitas, Capsulas 
e Fonocaptadores, Microfones, Sonorizagao. Instrumentagao de Medidas 
em Audio, T^cnicas de Gravagao e tambem de ReparagSo em Audio 



§C <. o ^ 

ruu imamu 



CEDM-1 • KIT de Ferramentas. CEDM 2 - KIT Fonte de AlimentagSo 
♦ 15 15/1A. CEDM 3 - KIT Placa Experimental 
CEDM-4 - KIT de Componentes. CEDM 5 • KIT Pr^-amplificador 
Estdreo. CEDM-6 • KIT Amplificador Estereo 40w. 



KIT CEDM Z80 
BASIC Cientlfico. 

KIT CEDM Z80 
BASIC Simples. 

Gabarito de Fluxograma 
E 4. KIT CEDM SOFTWARE 
Fitas Cassete com Programas. 



Sao mats de 140 apostilas com mformagdes completas e sempre 
atualizadas Tudo sobre os mais revolucion£rio CHIPS. E voce 
recebe. alem de uma solida formag§o teorica. KITS elaborados 
para o seu desenvolvimento prStico Garanta agora o seu futuro 



CEDM 20 - KIT 
de Ferramentas. 

CEDM 78 - KIT 
Fonte de Alimentagao 
5v/1 A. CEDM 35 KIT 
Placa Experimental 
CEDM 74 KIT 
de Componentes. 
CEDM 80 

MICROCOMPUTADOR 
Z 80 ASSEMBLER. 



Este CURSO, especialmente programado, oferece os 
fundamentos de Linguagem de ProgramagSo que domina o umverso 
dos microcomputadores. Dindmico e abrangente, ensma desde o BASIC 
b4sico ate o BASIC mais avangado. inclumdo nogdes bdsicas sobre 
Manipulag£o de Arquivos, Ticnicas de Programagao, Sistemas de 
Processamento de Dados. Teleprocessamento. Multiprogramagao e 
T^cnicas em Linguagem de M£quina, que proporcionam um grande 
conhecimento em toda a Area de Processamento de Dados 



MS 









Menu, forma tagao de tel as, mensagens Claras, . . . veja como tudo isso e importante quando se trata de 
facilitar a interagao usudrio-computador em processos de treinamento e automagao 



Facilite a interagao 
homem - maquina 



Sue/ena Ortiz Porto 
Helena Vauthier de Souza 



E xiste algo mais enfadonho e 
cansativo do que utilizar um 
sistema interativo em que a 
linguagem nao e natural?0 cursor 
pula na tela solicitando mformafoes, 
ora numa linha jd escrita, ora abaixo 
desta; algumas informa^oes sao 
solicitadas mais de uma vez;o processo 
de entrada no sistema e semprc o 
mesmo, independente do numero de 
sessSes de uso e experience do usudno. 
Estes, entre outros aspectos, sao 
altamente desestimulantes para um 
usuario nao especializado, quando em 
interacao com sistemas automatizados. 
Sabe-se que automatizar fun (joes em 
escritdrios leva a uma melhor 
produtividade, amplia a margem 
competitiva e fornece solu?6es a maiona 
dos problemas rotineiros enfrentados 
por trabalhadores de escritdrios. Mas, 
para que estes quesitos sejam 
plenamente alcan<jados, e necessario um 
cuidadoso planejamento, no que diz 
respeito aos aspectos ergonomicos, os 
quais preocupam-se em acomodar 
ambientes e sistemas aos individuos. ao 
contrdno do que normalmente d feito 
devido ao carater de obrigatoriedade de 
utiliza<jao que e imposto ao usudrio . 
leigo. 

£ inevitdvel que uma parcela cada vez 
maior de individuos venha a marupular 
terminals como ferramenta de trabalho, 
com aumento de suas responsabilidades. 



Portanto, o componente humano torna- 
se amda mais valioso e deve ser objeto 
de preocupa<jao crescente, visando a 
aperfe^oar as concludes que circundam 
seu trabalho. A Ergonomia, como 
campo de conhecimento que se 
preocupa em melhorar e adequar o 
ambiente de trabalho ao individuo, vem 
de encontro a estes objetivos. 

Estabelecer a interface homcm-maquina, 
em sistemas interativos, signif»ca 
projetar e desenvolver sistemas 
preocupando-se em como este sera visto 
pelo usudno e como essa tarefa serd 
executada. Neste enfoque, alguns 
cuidados no projeto e desenvolvimento 
do software que estabelecera a 
comuruca<jao usuario-computador 
devem ser tornados. 

Na elabora^ao de um projeto de sistema, 
quanto aos seus aspectos ergonomicos, 
duas regras gerais devem ser 
consideradas: distribui<jao de 
funcionalidade e consistencia. 



FUNCIONALIDADE 



distribuipao de funcionalida- 
de trata da alocapao das 
diferentes funpoes de um 
sitema em relapao as teclas de 
menus e de uma ou vdrias funpoes. 
mnemonicos e comandos. Refere-se 



tambem ao atual lay-out e projeto de 
tais menus, comandos e telas em geral. 
0 projeto de telas de sistemas de 
automapao de escntorio e sua 
documentapao constituem o ponto 
nevralgico de uma boa aceitapao do 
software. Isso ocorre porque o usudno- 
alvo certamente desejara trabalhar com 
um sistema dentro da sua linguagem 
comum, com o jargao de trabalho a que 
estd habituado, ou seja. o mais prdximo 
da rcalidade em que convive. Para isso, 
e necessario dialogo em linguagem a 
mais natural possivel de forma a 
propiciar uma mterapao continua que 
leve o usuario a ter a sensapao de estar 
conversando com a maquina. 

Neste aspecto. algumas obsei vapoes s£o 
importantes, tanto no que diz respeito 
ao conteudo das telas como ao tipo de 
dado solicitado ao usuario. 0 forniato 
das telas, por exemplo, deve ser 
projetado de forma a distribuir as 
informapdes longitudinal men te no 
video, ao inves de imprensd-las no topo 
(pnmeiras dez linhas). As informapdes 
dispostas no video devem ser agradaveis 
a leitura, o que e obtido observando- 
se margens a esquerda e a direita, 
deixando linhas em branco, destacando 
palavras-chave atraves de sublmhas, 
aspas ou negrito. 

Os comandos de utilizapao devem ter 
smtaxe simples, de preference 
tomando-se mnemonicos retirados da 




sua linguagem natural, para amenizar a 
barreira de uso de terminals ou 
equipamentos de automapao de 
escritdrios. Pois, para um usuario 
burocratico-administrativo 
nao especializado utilizar um 
equipamento com o qual nao estd 
familianzado, tanto sob os aspectos de 
funcionamento como os de linguagens 
de comando, d uma tarefa bastante 
complexa e atd mesmo amedrontadora. 
Este usuario, em geral de nivel mddio, 
nfo tern como caracteristica o 
dominio de linguas estrangeiras, as quais 
sao comumente utilizadas na definipao 
de comandos e manuals, gerando, por 
isso mesmo. uma rejeipao ao software a 
ser utilizado. 

As mensagens do sistema para o usudno 
devem ser escntas visando a atender as 
expectativas e objetivos do mesmo 
e adequadas a audiencia e situapao. 
Dcterminar que informapdes devam ser 
colocadas numa mensagem, em cada 
situapao, significa analisar o que pensam 
as pessoas que necessitarao dela e se ha 
possibilidade de mfen-las do contexto. 
Se isso nao for possivel, a mensagem 
deve prover as necessidades, explicita ou 
implicitamente. 

As mensagens devem ser bem escritas, 
em linguagem coloquial, com grafia e 
pontuapao corretas. A inexistencia de 
pontuapao e caracteres adequados a 
lingua portuguesa, como cedilha e 
til, que ainda se observa em certos 
terminals, dificulta a leitura e interapao 
nos sistemas de comunicapao homem- 
maquma. Outro aspecto a salientar 6 
que a inexistencia de caracteres 
minusculos na gerapao dos smais para 
video nao e substituida com sucesso 
pela tdcmca de inverse video. 

Por outro lado, a solicitapao de dados 
para operapao ao usuario deve ser 
feita de maneira clara. precisa, simples 
e em pequcno numero. sem exigir que o 
usuario seja obngado a repetir os 
mesmos dados ao longo da tarefa. 

Depois de fornecidos, estes devem 
retornar como complemento a novas 
solicitapoes, quando necessario. 



CONSISTENCIA 



A segunda regra geral a ser 
aplicada no projeto de 
software, consistencia. diz 
respeito ao estabelecimento 
de uma aproximapdo comum para fazer 
coisas. Por exemplo, usar sempre as 
mesmas teclas para as mesmas funpoes; 
colocar um sinal de reposta ou 
informapdes similares na tela, sempre na 
mesma posipao;localizar a informapao 
devolvida ao usuario, por uma apao sua. 
na prdxima linha; dar sempre o mesmo 
significado logico as convenpoes, tais 
como Insert ou Control-C. 

Outro aspecto que diz respeito a 
consistencia e propiciar facilidades num 
sistema de processamento de textos o 
mais prdximo possivel das mesmas 
atividades feitas em situapao nao 
automatizada. pois isto implica em 
retreinamento minimo. 

Sistemas de comunicapao homem- 
maquina devem ser implementados em 
varios niveis, possibilitando ao usudrio 
expenmentar meios de atalhar certos 
passos de execupao, levando-os direto a 
tarefa desejada. Isto diz respeito a 
tdcnica de projeto de menus ou 
equivalentes, pois usudrios casuais ou 
menos experientes necessitam de maior 
numero de telas para familiarizarem-se 
com os sistemas, evitando referir-se 
contmuamente a manuals ou pessoal de 
suporte. 



DOCUMENTAPAO 



F ace ao exposto acima, surge um 
novo problema: a 
documentapao. Na maioria dos 
sistemas, esta 6 a maior 
barreira de seus usudrios; e em sistemas 
interativos, onde o usuario nao 6 
necessanamente da Area de Informatica. 
o problema se agiganta. £ preciso que os 
fabncantes dediquem maior atenpao, 
tempo e dinheiro escrevendo 
documenta 9 ao compreensivel para o 
usuirio. 
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Uma boa documenta 9 ao deve ser uma 
contribu^ao prdtica e clara dos vdnos 
critdnos que sao julgados importantes 
em vista das aplica 9 oes especificas e do 
que o usudno pretende para o sistema. 
Para isso, 6 necessario que os fabncantes 
se conven 9 am da importancia dos 
ergonomicos e que, sob este ponto de 
vista, engenheiros de marketing e de 
software sao as melhores fontes de 
sistemas bem projetados. 

Concluindo, quer seja no projeto, 
desenvolvimento e implanta 9 ao de 
sistemas ergonomicos, ou no que diz 
respeito a sua experimenta 9 So e 
documenta 9 ao, o usuario, especializado 
ou nao, deve ser o foco principal. Pois 
nao s6 os primeiros contatos deste 
usuario com equipamentos e 
procedimentos, mas a utiliza 9 ao facil e 
agradavel de um software determinarao 
a sua boa aceita 9 ao e sucesso. m 

m 



Suelena Ortiz Porto atua na Srea de Inform 4- 
tica na Educagao desde 1978, participando do 
desenvolvimento e especificaqoes do software 
de ensino implementados em mdquinas de 
grande e pequeno porte. Atualmente 6 profes- 
sora assistente do CPD da UFRGS e dedica-se 
a pesquisas na Area de Ergonomia e Automa- 
cao de Escritdrios. 

Helena Vauthier de Souza 6 professora assis- 
tente do CPD da UFRGS, onde leciona lingua- 
gem BASIC e pesquisa nas Areas de Automaqao 
de Escritdrios e Ergonomia de Sistemas. 



MS E FEITA 
PARA VOCE 
PARTICIPE COM 

SUA OPINIAO 




Escreva-nos di- 
zendo qual a sua 
drea de interesse, 
conte-nos tam- 
bdm as suas expe- 
riencias com seu 
micro, o que 
voce quer ver 
publicado em MS, o que voce acha 
da sua MS, enfim, diga tudo que 
torne MICRO SISTEMAS ainda 
mais feita para voce. 

E lembre-se: todo leitorque nos 
escreve concorre automaticamente 
a uma assinatura de um ano de 
nossa MICRO SISTEMAS. Mande 
logo sua opinido para Redapao de 



MICRO SISTEMAS no Rio de 
Janeiro ou em Sao Paulo: Av. 
Presidente Wilson, 165/grupo 
1210 -Centro -CEP 20030- 
Rio de Janeiro - RJ; Rua Oliveira 
Dias, 153 - Jardim Paulista - CEP 
01433 -SSo Paulo - SP. 
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Se voce usa o comando NEW, o programa sumiu, certo? Mas voce p ode traze-lo de volta! 
Eis aqui o processo e um programa em linguagem de maquina para ajuda-lo 




€A Como 

^ recuperar 

programas 
(aparentemente) 

perdidos 



Rudolf Horner Junior 



M inha experiencia com microcomputadores fez com 
que eu me tornasse, com o passar dos tempos, um 
programador bastante cauteloso, desses que tern o 
costume sauddvel de, vez por outra, gravar em 
disco magnetico os estdgios parciais da elabora^So de um 
programa. No passado, pordm, lembro-me de algumas ocasides 
em que, devido a um imprevisto ou procedimento incorreto, 
eu acabava por ver eliminado da memdria da mdquina todo um 
drduo trabalho de algumas horas de programa^o. 

Um desses cruris imprevistos e a jd tdo conhecida e temida 
falta de energia eldtrica. Caso ocorra, se o programador ndo 
tiver uma copia ou um back-up das instru^Ses contidas na 
memdria do computador, sd lhe restarSo duas alternativas: o 
choro ou o suicidio (e o pior 4 que, seja qual delas for tomada, 
ndo poderd trazer de volta o trabalho perdido). Ndo hd como 
solucionar este problema. 0 maximo que se pode fazer e 
prevenir-se contra ele, ou seja, na eminencia de uma queda de 
energia pela proximidade de uma tempestade, tratar de 
preparar cdpias de tudo quanto for necessdrio em algum tipo 
de memdria, em fita ou em disco, que ndo seja voldtil na 
ausencia de eletricidade. 

Mas o culpado pela perda do programa tambem pode ser o 
proprio operador, que traido por uma atitude incorreta destrdi 
tudo aquilo que ele mesmo criou. Eu mesmo, jd por diversas 
vezes, fui vitima de um descjo de digitar o hediondo comando 
NEW, percebendo, logo ap6s, a bobagem que havia feito. 

Digitar este comando ou outro equivalente, seja via teclado 
ou durante a execu95o de um programa, e uma coisa que 
eventualmente acontece, causando uma boa sensa^o de 
arrependimento ao programador. 0 que alguns programadores 
mais insipientes nffo sabem, pore'm, t que 6 bastante fdcil 
recuperar da memdria um programa que acabou de ser 
eliminado com o comando NEW. 

0 propdsito deste artigo 6, portanto, explicar o 
procedimento a ser adotado para que isto possa ser feito e 
propor um pequeno programa em linguagem de mdquina para 
os computadores da linha Apple que poderd, milagrosamente. 



ressuscitar um programa em BASIC que tenha sido eliminado 
da memdria por um engano infeliz. Ainda que este tipo de 
acidente nunca tenha acontecido com voce, creio que serd 
interessante testar a rotina que proponho, como curiosidade 
inspirada pelo seu bonito efeito. 

Ndo pretendo entrar em maiores detalhes sobre o seu 
funcionamento, uma vez que, na Sidra publicada em MICRO 
SISTEMAS numero 25 (outubro de 83, pdgina 20), expliquei 
como o interpretador BASIC faz para armazenar as listagens 
dos programas em desenvolvimento. Caso voce nSo saiba como 
funciona este processo , seria bastante util uma consulta a este 
artigo. 

A CHAVE ESTA NO APONTADOR 

No processo de cria^ao de cada linha de um programa que 
esteja sendo editado, o interpretador consome dois bytes para 
registrar um apontador para o endere<;o da prdxima linha, dois 
bytes para registrar o numero da linha, um numero varidvel de 
bytes para registrar o conjunto de comandos da linha e, 
finalmente, um byte com o valor zero para indicar o fun da 
linha. Para determinar o final da listagem do programa, o 
interpretador marca tres bytes sucessivos com o valor zero. 
Quando o comando NEW e executado, evidentemente o 
computador ndo sai apagando os bytes de sua memdria para 
eliminar o programa; ele simplesmente vai ao principio da 
listagem e marca os tres primeiros bytes com o valor zero. 

Na verdade, os bytes que codificavam o programa original 
continuam inalterados na memdria, mesmo que ndo sejam mais 
indicados pelos apontadores de listagem. A conclusdo e 
simples: para recuperarmos o programa bastard restaurar estes 
apontadores para suas posi^des originais. 

Normalmente, dependendo do conteiido dos bytes 103 e 
104, os endere^s que contem este apontador sdo os 
hexadecimais S0801 e S0802. Quando se usa NEW, eles 
assumem o valor zero, e quando temos algum programa na 
memdria eles passam a conter um apontador para a segunda 
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linha do programa. Para restaurd-lo , basta encontrar o final da 
primeira linha do programa (marcada com um byte com valor 
zero) e colocar nos endere 90 S $0801 e $0802 um apontador 
para o byte imediatamente seguinte ao ultimo byte da primeira 
linha. 

Estando em monitor, este 
6 um processo que pode 
ser feito manualmente; no 
entanto, podemos 
simplificar a tarefa criando 
um outro programa que 
fa 9 a isso automaticamente 
para nds. Este programa 
ndo poderd estar em 
BASIC, pois, sendo 
carregado a partir dos 
apontadores jd 
mencionados, ele acabard 
por mutilar o programa 
que estamos tentando 
ressuscitar e ndo poderd 
recuperd-lo com perfei 9 do. 
Teremos que usar um 
programa, 

preferencialmente, em 
linguagem de mdquina, 
que seja carregado em um 
lugar da memdria que ndo 
destrua a listagem que 
queremos recuperar. 
Usaremos 39 bytes, do 
endere 90 S0300 a S0324, 
que como j i sabemos e o 
intervalo sempre utilizado 
para pequenas rotinas em 
linguagem de maquina. 
Dito isto, vamos ao nosso 
programa, o milagroso, 
cujo fluxograma estd na 
figura 1 . Veja que ele foi 
elaborado para recuperar 
programas que estejam 
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Figura 4 



registrados a partir do byte S0801 , ndo funcionando para 
programadores que tenham o costume de alterar o valor dos 
bytes 103 e 104 que indicam o principio de programas em 
BASIC. Para estes, bastardo pequenas modifica9<5es em alguns 
lugares do programa proposto para que possam obter o mesmo 
efeito que desejamos alcazar: fazer reviver programas mortos 
com o comando NEW. 

A listagem do milagroso estd na figura 2. Ele j i estd 
montado e pronto para uso. Para carregd-lo, voce pode usar a 
seqiiencia de bytes registrada na figura 3, mas para o pessoal 
que ainda tern um pouco de receio em utilizar o programa 
monitor do Apple fiz um programa em BASIC, listado na 
figura 4, que, quando executado, monta na memdria o nosso 
programa em linguagem de mdquina. 

Carregue o programa e armazene-o em disco com o 
comando BSAVE MILAGROSO, AS300,LS26. Quando 
quiser testd-lo, crie um programa em BASIC qualquer, digite 
NEW para elimind-lo, use BLOAD MILAGROSO para 
recuperar nosso programa em linguagem de mdquina na 
memdria e depois use CALL 768 para executa-lo. 
Imediatamente aparecerd a palavra PRONTO na tela para 
indicar que o programa em BASIC perdido j i foi 
ressuscitado. Digite LIST e verifique: milagre!!, seu programa 
estd de volta! 

Um ultimo detalhe: o programa milagroso, por ser em 
linguagem de maquina, possui um tempo de execu 9 do muito 
pequeno. Por mais trabalhosa que seja sua execu 9 do, ela ndo 
deverd levar mais do que alguns segundos para escrever 
PRONTO, indicando que houve sucesso na recupera 9 do. 

Caso, apds voce chamd-lo com CALL 768, o programa demore 
muito tempo para retornar, e porque ocorreu algum problema 
e, nesse caso, as chances de recupera 9 do do programa perdido 
sdo bastante remotas. Cuide para que nada de errado aconte 9 a. 

& 



Rudolf Horner Junior cursa Ciincia da Computagao na Unicamp e 4 
sdcio da Potencial Software, empresa que desen volve programas 
especiai s para microcomputadores em Campinas, SP. 
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Reserva continua. 
afirma Dytz no 
Congresso de SC 



Nos prbximos 20 anos nAo 
se pode pensar em suspender a 
reserva de mercado na Infor- 
mAtica, sob pena de desenco- 
rajar, desde jA, os investimen- 
tos nacionais no setor. Por esse 
motivo 6 preciso garantir no 
pafs essa protegAo por tempo 
indeterminado e, se algum dia 
h ouver modificapbes nesse 
sentido, elas deverAo ser fruto 
da prbpria evolupSo do setor e 
decididas ap6s amplo abate 
de todas as Areas interessad a s. 

A declaragao A do Secre- 
tArio de InformAtica, Edison 
Dytz, em entrevista coletiva 
durante o VI Congresso Regio- 
nal/ll I Feira Nacional de In- 
formAtica, realizados de 15 a 
20 de maio em BalneArio Cam- 
boriu, Santa Catarina. 

Ele falou sobre o projeto 
de lei para o setor, que o go- 
verno pretende enviar ao Con- 
gresso Nacional ainda este mAs 
de junho, e cujos pontos al- 
tos sAo a criapAo de incentivos 
para a Area, a constituipSo da 
Comiss&o Nacional de Infor- 
mAtica e a transform agao do 
Centro de Tecnologia para In- 
formAtica — CTI, de Campi- 
nas, em fundapAo. 

Dytz destacou ainda que a 
criapAo de incentivos fiscais se- 
rA um reforpo A polftica de 
reserva de mercado em vigor — 
o novo projeto defende a sua 
manutenpAo — na medida em 
que constitui atrapAo efetiva 
do capital brasileiro para o se- 
tor, produzindo, como resulta- 
do final, um avanpo mais rA- 
pido, tanto na industria de 
hardware como na de soft- 
ware. 

O titular da SEI acredita 
que a instituipAo da ComissAo 
Nacional de InformAtica A um 
outro importante passo, pois 
trata-se de um brgAo norma- 
tivo, em nfvel superior A SEI, 
formado por 6rgAos do aover- 
no e entidades do setor. A SEI 
caberA executar as decisbes da 
ComissAo. 

Dytz tambAm afirmou que 
a reserva de mercado produziu 
grande avanpo tecnolbgico no 
Brasil e, aprovado o novo pro- 
jeto, o progresso serA ainda 
mais vertiginoso. A esse respei- 
to, ele demonstrou satisfapAo 
com a representatividade da 
industria nacional na III Feira 
Nacional de InformAtica que, 
para ele, espelha bem o mer- 
cado brasileiro. O congresso de 
Santa Catarina tambAm foi im- 



portante, na opiniAo de Dytz, 
porque ajudou a despertar os 
empresArios pare a necessidade 
de envolvimento com a Infor- 
mAtica. 

O VI Congresso Regional 
contou com a adesAo de 600 
inscritos oriundos principal- 
mente de Santa Catarina, Pa- 
ranA e Rio Grande do Sul e, 
em menor quantidade, da Ba- 
hia, Minas Gerais, ParA, Rio de 
Janeiro e SAo Paulo. A Feira, 
visitada por aproximadamente 
40 mil pessoas, reuniu 40 fa- 
bricantes de equipamentos e 
empresas de servipos e soft- 
ware. Entre eles estavam a Co- 
bra, que lanpou o microcom- 
putador Cobra 210 (veja matA- 
ria na pAgina ), a Prolbgica, 
com o Sistema 700 e o Cetil 
que mostrou o seu Sistema de 
Consults a Cadastro atravAs de 
um micro Magnex Manager I 
interligado via teleprocessa- 
mento ao Burroughs B2900 da 
matriz em Blumenau. A Itau- 
tec demonstrou os seus tormi- 
na is de videotex to 1-1060 e 
1-1061, em conexAo com o Sis- 
tema da Telesp, enquanto a 
Cincom Systems levou A Feira 
o PC Contact, soft que permi- 
ts o intercAmbio de dados en- 
tre micros compatfveis com o 
IBM PC e computadores de 
grande porte. 

Am bos os even tos foram 
promovidos pela SUCESU-SC, 
com o apoio da SUCESU-Na- 
cional e da SEI. 

( Osni Rodolfo Schmitz) 



Acessorios para CP-300 



A Prolbgica estA lanpando uma linha de acessbrios para o CP-300 
que permitirA o uso de impressora, plotter, modem, unidade de disco, 
monitor de video e joystick. Os novos acessbrios sAo: Paralela 300, in- 
terface paralela para impressora; Serial 300, interface serial para ligar 
perifAricos como modem, impressora, plotter e outros; Controlador 
300, controlador de disco flexfvel para at A quatro unidades de 175 
kbytes cada; Joystick 300, acessbrio que possibilita maior performance 
nos jogos disponfveis; MV 300, monitor de vfdeo de fbsforo verde para 
aplicapao profissional e comercial, e o Sistema Mestre 300, que permits 
o uso simultAneo de todos os acessbrios da Prolbgica para esse equipa- 
mento. 



Brizida 
Deixa a SEI 



ser favorfvel A associagSo de empresas para o de- 
sen volvimen to dos equipamentos, uma vez que, 
segundo ele, dues ou trfs empresas fabricando 
superminis /A seriam suficientes para o mercado. 
Sobre a DigibrAs, o ex-SecretArio informou que a 
parte de fomento tecnolbgico que vinha sendo 
desenvolvida por aquela empress foi absorvida 
pelo CTI, enquanto a parte comercial estA sendo 
levada ad i ante pela prbpria SEI e pelo BNDES. 

Falando sobre as apticapOes sbcio-econb mi- 
cas da InformAtica, Brfzida citou alguns projetos 
em andamento entre os quais o Micromed, que 
visa instalar microcomputadores em postos de 
saCide, com software para condole desses postos. 
Os outros projetos mencionados pelo ex-Secra- 
tArio sSo o Ed u com, para implantapSo de micros 
nas as co las; o Agrocon, uso do micro na agricul- 
ture, e um projeto sobre o uso do mi pro no sis- 
tema carcerfrio que serf tanged o em breve. Con- 
cluindo, o ex-Secrerfrio disse que sua mensa- 
gem final era de otimismo: "O empresariado sou- 
be corresponder ao desafio e continua trabalhan- 
do nesse sentido ", 



Em almogo de despedida promovido pela 
Sucesu SSo Paulo, o Secrerfrio de InformAtica, 
Joubert de Oliveira Brfzida, fez um balango das 
atividades desenvolvidas enquanto esteve na dire- 
(So da SEI. Brfzida ressaltou os quatro pontos de 
honra de sua gestSo: o projeto de uma lei sobre a 
InformAtica no pafs; o desen volvimen to dos su- 
perminis; a questSo da Digibrfs e as aplicagbes 
sbcio-econbmicas da InformAtica. Em seguida, 
o ex-SecretArio, que deixou o cargo para servir 
como adido miliar na ambaixada do Brasil em 
Londres, ressaltou ainda a import An cia do Centro 
de Tecnologia em InformAtica, inaugurado em 
maio, em Campinas. 

Sobre o projeto de lei, que deverf ser enviado 
ao Congresso atA junho, Brfzida afirmou que a 
questSo principal A a menu tan (So da reserva de 
mercado. Quanto aos superminis ele reafirmou 



□ 


n 


■ 


IS 



32 



MICRO SISTEMAS, Junho/84 



MICRO SISTEMAS e Abril Cultural noVideotexto 



Aproveitando a ocasiAo de seu 
aniversArio, a Telesp lanpbu, no 
infcio do mAs de maio, uma 
sArie de novos servipos 
vinculados ao sistema 
Videotexto, entre eles a 
possibilidade de utilizapao do 
microcomputador como 
terminal de videotexto e e 
servipo TELESOFTWARE. 

A maioria dos fabricantes 
nacionais jA estao lanpando kits 
que possibilitarao a conversao 
de seus equipamentos em 
terminals do sistema da Telesp. 
Esses kits, alguns jA disponfveis 
como o da Prolbgica, poderAo 
ser adquiridos em lojas 
especial izadas na revenda de 
micros, e sAo compostos deum 
programa para acesso ao 
Videotexto em disco ou f ita 
cassete, modem e interface de 
comunicapao RS 232C. 

Uma vez assinantes do 
Videotexto e tendo comprado o 
kit, os usuArios de micros 
passam a ter acesso tambAm ao 
TELESOFTWARE. Este servipo 
comporta um banco de 
programas, voltados para Areas 
diversas e armazenados na 
central do Videotexto, que, 
alAm de ope rad os, podem ser 
copiados pelos usuArios do 
sistema em seus prbprios 
disquetes ou fitas. 




Um dos principals fornecedores pAginas da SEI/MICRO 
de servipo do sistema. a SEI — SISTEMAS diversos programas 
Sistemas Eletronicos de de uso pessoal, educativos, 

Informagao, divisao da Abril administrativos. util itArios e 

Cultural voltada para a atuapao jogos, todos cedidos e testados 
no campo da InformAtica, veio pela revista. E mensalmente 
buscar em MICRO SISTEMAS a novos programas serao 
aliada para este incorporados ao Telesoftwere 

empreendimento pioneiro. apbs publicapao em MICRO 

Assim.o usuArio encontrarA nas SISTEMAS. 



Na primeira selegao de 
material, jA encontram-se 
disponfveis no 
TELESOFTWARE diversos 
programas interessantes, de 
autoria de f requentes 
colaboradores de MS como o 
Professor Antonio Costa Pereira; 
Ivan Camiio Cruz; Marcelo 
Renato Rodrigues; Daniel 
Augusto Martins;J6neson 
Carneiro de Azevedo; Heber 
Jorge da Silva; Francisco 
Bezerra; Paulo SArgio Gonpalves; 
Hendy Yabiku; Armapdo 
Cavanha Filho e Lawrence 
Falconer King. 

Outra novidade apresentada 
foram os "olhbes", terminals 
publicos atravAs dos quais 
qualquer pessoa pode ter acesso 
gratuito As informapdes do 
sistema. Hoje jA existem 13 
terminals publicos instalados em 
SAo Paulo, nos seguintes locais: 
Shopping Center Eldorado; 
Shopping Ibirapuera; Shopping 
Center Norte; Biblioteca 
Municipal MArio de Andrade; 
Centro Cultural de Sao Paulo; 
Faculdade de Economia da 
USP; Sesc PompAia; 

Sesc Vila Nova; loja da Telesp 
da Rua 7 de Abril e na sede da 
Companhia na Rua Martiniano 
de Carvalho. 



STRINGS 



if A Danvic estA oferecendo aos compr adores do seu novo equipamento 
Cagula Dual um treinamento de uma semana para operagao do micro. O 
Dual tern dois microprocessadores: Z80A, de oito bits, e 8080, de 16 
bits. E para estimular as vendas a nfvel nacional, a empresa estA fazendo 
a prA-selepao de seus futuros revendedores. de forma a comercializar os 
micros em todo o pafs a partir de julho.*Mais novo fornecedor de pro- 
dutos de InformAtica em SSo Paulo, a Monolith 2001 tambAm desenvol- 
ve software e acaba de concluir o programa AnAlise de Investimentos e 
Financiamentos. para equipamentos da linha Sinclair, com 16 kbytes. A 
empresa fica na Rua Augusta, 1371 — sobreloja 7, tel.: (011) 268-4370. 
■Ac A Brascom fechou negbcio para a venda do seu microcomputador 
BR 1000 ao Laboratbrio de Subsistemas IntegrAveis da USP. Na mesma 
universidade jA existe um outro BR 1000 instaiado no Departamento de 
Engenharia. AlAm de Sao Paulo, os microcomputadores da Brascom 
tambAm estao sendo usados pelas universidades de Pernambuco, CearA, 
Joinville e pela Faculdade de Administrapao e Economia de Curitiba, if 
A Plajet, Industria e ComArcio de PIAsticos Ltda. jA estA produzindo fi- 
tas para videocassete. Com 120 min. de duragao e formato VHS, as no- 
vas fitas comercializadas sob a marca Ferrite terao uma produpSo inicial 
de 100 mil unidades (80% para exportapao) e deverao custar, no merca- 
do interno, 5 a 10% menos que as similares importadas. ★ A SID foi a 
empresa escolhida pela Tecnologia BancAria, responsAvel pela implanta- 
pao do Banco 24 Horas, para produzir as primeiras 50 unidades nacio- 
nais das mAquinas ATM (Automated Teller Machine). Assim, em breve, 
o numero total de cabines do Banco 24 Horas passarA de 22 para 72, 
estendendo-se de Sao Paulo, Rib de Janeiro e Curitiba, onde jA opera, 
para atingir tambAm Belo Horizonte e Porto Alegre. As novas mAquinas 
fabricadas pela SID terio um sistema de voz que orientarA os usuArios. 
ir A Cincon Systems do Brasil colocou no mercado o PC Contact, um 
novo software para ligapao em tempo real entre microcomputadores 
que emulem terminals IBM com equipamentos de grande porte. O PC 
Contact estA sendo comercial izado com exclusividade pela prbpria Cin- 
com. Maiores informapoes pelo tel.; (011) 81 5-6188. ★ A SAD — Siste- 
mas de Apoio A Decisao firmou contratos de assessoria com a General 
Motors e a Copersucar. Na GM, vai treinar 200 executivos da gerencia 



mAdia e na Copersucar vai ajudar na implantapAo da InformAtica em 70 
usinas. A SAD tambAm vai assessorar a Alcoa, a Brasil Seguros, o Lloyd's 
Bank, a Brasilit, a empresa MamorA, do grupo Paranapenema, e a Filtro- 
na, fornecedora da Souza Cruz, it O SENAC de SAb JosA do Rio Preto, 
Sao Paulo, em conjunto com a Proansi — Empresa de Consultoria de 
Sistemas, da mesma cidade, abriu seu laboratbrio de InformAtica, onde 
os alunos desenvolverao aulas de InformAtica e de formapao de tAcnico 
em Contabilidade. ★ Novo espepo para o debate dos temas ligados A In- 
formAtica: a Folha do ComArcio, jornal da Associapao Comercial do Pa- 
ranA, estA publicando regularmente uma pAgina com notfcias sobre pro- 
dutos e eventos da Area. 4- A Microdigital lanpou o Programa Microedu- 
cagSo, que vai fornecer As instituipoes de ensino facilidades para adqui- 
rir equipamentos e apoio tAcnico e didAtico sob a forma de literature e 
software. Os interessados devem contactar a empresa, A Rua do Bosque, 
1234, CEP 01136, tel.: (011) 825-3355, Sao Paulo - SP.it Auditoria a 
Seguranga em Processamento de Dados e Software dos Computadores 
Nacionais sao os seminArios que o IBAM estA promovendo para a segun- 
da quinzena do mAs de junho, em sua sede no Rio de Janeiro.* Outro 
seminArio previsto para o final deste mes A o que a Servimec vai realizar 
no seu Centro Experimental de InformAtica, sobre o tema Auditoria 
Efetiva na Area de Sistemas. * A software house carioca Informatic Ser- 
vice estA agora desenvolvendo aplicativos para micros com o sistema 
operacional CP/M, em configurapoes de 48 ou 64 kb de RAM e uma ou 
mais unidades de disquetes de 5 1/4” ou 8”, com ou sem impressora. O 
telefone A: (021) 221-9720. O livro What's Where in the Apple, co- 
nhecido manual de software bAsico desse equipamento, estA sendo tra- 
duzido e em breve terA sua versao em PortuguAs. A edipao estA sendo 
patrocinada pela Unitron, fabricantedo AP II.* A ACI - Assessoria de 
Comunicapao Integrada acaba de associar A Hill and Knowlton Inc., em- 
presa norte-americana do mesmo ramo. Pelo acordo, a Hill and Knowl- 
ton passa a deter 50% do capital da ACI, iniciando atuapao conjunta 
com a firma brasileira. * JA estA disponfvel a 3? edipao do livro Aplica- 
goes SArias para TK 85 e CP 200, de DAlio Santos Lima. O livro custa 
Cr$ 9 mil e pode ser obtido junto A Micron Elatrbnica: Av. Sao Joao, » 
74. CEP 12200, tel.: (0123) 22-4194, Sao JosA dos Campos - SP. J6 
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Informatica 84: 
os preparativos 
do grande evento 



Onde estamos, para onde va- 
mos. Este 4 o lema do Informa- 
tics 84, o grande evento anual 
da industria brasileira do setor, 
que reune o XVII Congresso Na- 
cional de Informitica e a IV Fei- 
ra Internacional de Informatics. 
O evento, que ser4 realizado no 
Rio de Janeiro, de 5 a 1 1 de no- 
vembro, no Riocentro, foi anun- 
ciado 4 imprensa no dia 10 de 
maio, no Terrasse Club, no Rio, 
pelo presidents da Comissao Or- 
ganizadora, Erwin Nettesheim.e 
pelo presidents da SUCESU-Na- 
cional (promotora do evento), 
H4lio Azevedo. 

O XVII Congresso foi estru- 
turado em tor no dos seguintes 
assuntos:Segoes T4cnicas; Infor- 
matics para Executivos; Infor- 
m4tica Aplicada; F6rum de De- 
bates; 1984 — O Emprego da In- 
formatics; Mostras Paralelas. 

As Se^des T4cnicas, segundo 
o Presidente Nettesheim, "serao 
voltadas para analistas de siste- 
mas e programadores, ou para 
pessoas de outras 4reas que 'en- 
tendam' tanto quanto estes pro- 
fissionais". Os temas abordados 
serSo: Administragao e Planeja- 
mento de Informatics; Automa- 
gSo de Escritdrios e Redes Lo- 
cais; Automagao Industrial e 
Controle de Processos; Metodo- 
logia de Desenvolvimento de Sis- 
temas e Programas; Microeletro- 
nica e Projetos de Hardware; Pro- 
cessamento Distribufdo e Redes 
de Comunicapao de Dados; T4c- 



nicas Futuras de Informatica e 
Uso de Mini e Microcomputado- 
res; entre outros. 

Este ano, a ComissSo Organi- 
zadora apresenta uma novidade 
para a IV Feira: um sistema in4- 
dito de distribuipSo das 4reasde 
exposipao, que visa "uma flu4n- 
cia raciona! dos visitantes, dire- 
cionando-os aos estandes de seu 
interesse, facilitando assim a cir- 
culagao destes e os contatos en- 
tre os expositores". 

Os organizadores ca leu lam 
que este ano mais de 300 mil 
pessoas visitarSo a Feira, cuja 
area destinada aos expositores 
sera surarior a 22.000 m2, 
4.700 m2 a mais que o total co- 
mercializado no Informatica 83, 
em SSo Paulo. 

Para o presidente da Comis- 
sSo Organizadora, as vendas es- 
tSo sendo um sucesso: "J4 fo- 
ram comqrcializados todos os 
12.000 m2 do Pavilhao de Ex- 
posipoes a 48 empresas." E co- 
mo a expectativa, ainda segundo 
Nettesheim, 4 de reunir mais de 
300 expositores, restam 10.000 
m2 a serem comercializados ao 
restante dos expositores nas Sreas 
que sob ram: Pavilhao Central e 
passarelas contfguas ao PavilhSo 
de Exposipdes. Certamente serS 
uma feira de extremos, com al- 
guns gigantescos estandes ocupa- 
dos pelos expositores nobres e 
centenas de micro-estandes para 
as microempresas. 



Micro News vai ao cliente 



A loja Micro News, do Rio de Janeiro, resoiveu botar o micro 
na rua, e para tanto j 4 conta com uma equipe de oito representan- 
tes externos, encarregados de levar os servipos e equipamentos para 
demonstrapSo diretamente aos seus clientes, em suas prbprias em- 
presas. 

Internamente, a loja continue atendendo os usuSrios da micro- 
informStica, oferecendo os equipamentos das linhas Sinclair, TRS- 
80 e Apple, assim como software aplicativo (inclusive desenvolvido 
pelos prdprios t4cnicos da loja), perif4ricos, suprimentos, livros e 
revistas da 4rea. A Micro News fica na Rua da Assembl4ia, 10, gru- 
po 3.317, Centro, tel.: (021) 252-9420. Rio de Janeiro. RJ. 



A P II no Cirandao 

A Unitron acaba de colocar 4 disposigao dos usu4rios do AP II um 
software que permite a interligagSo desse equipemento ao Cirandao, 
nova verslk), agora aberta ao publico em geral, do Projeto Ciranda, da 
Embratel. 

O Cirandao ir4 atuar a nfvel nacional, para usu4rios de equipamentos 
de v4rias linhas, que passarSo a dispor de uma biblioteca de software, 
a 14m de servipos como correio eletrdnico e classif icados, entre outros. O 
novo servipo da Embratel dever4 entrar em funcionamento a parti r do 
segundo semestre deste ano. 




PC -1500 RP, novo 



Com novos recursos de im- 
pressed e armazenamento de 
dados, a Sharp est4 lanpando a 
calculadora dent /fica progra- 
m4vel PC-1 500 RP, o novo pro- 
duto de sua I inha de pocket 
computers. Pela sua portabill- 
dade e tamanho, a PC-1500 
RP 4 espec/fica para quern 
execute tarefas fora do escritd- 
rio, podendo, no entanto, ser 
utilizada nas mais diversas apli- 
capdes. 

Pesando 900 gramas, a m4- 
quina 4 const itufda de uma 
unidade de bo I so com visor in- 
tegrado e de uma interface 
com impressora e safda para 
gravapdo em cassete. Sua me- 
m6ria 4 de 3,5 kb de RAM, 
com mddulo de 8 kb RAM do 



tipo tomada, e utiliza uma ver- 
sao de BASIC aperfeipoada. O 
microprocessador 4 de 8 bits, 
o qual permite um r4pido pro- 
cessamento de dados a um bai- 
xo consumo de energia. 

O visor, de cristal Ifquido, 
4 uma matriz minigr4fica de 
7 x 156 pontos e tern capaci- 
dade para 26 d/gitos. Com o 
uso do cursor, no entanto, po- 
de-se conseguir uma linha de 
at4 80 caracteres. 

A impressora do novo mo- 
delo 4 um trapador de gr4ficos 
inteligente, que imprime at4 
36 caracteres por linha, confor- 
me o tamanho de letra esco- 
Ihido (s4o nove tamanffos), em 
quatro diregoes e a quatro co- 
res diferentes (verde, vermelho, 
azul e preto). O papal utiliza- 
do 4 do tipo comum. 



Itau reafirma automagao 



Na d4cima reuniao do III Pleninco — Plen4rio da Industria e Com4r- 
cio, realizado em maio pela Associapffo Comercial do Rio de Janeiro, o 
Banco Itau promoveu o convenio de garantia de cheque estrela que vem 
realizando com mais de 15 mil empresas do com4rcio, industria e pres- 
tapao de servipos. Para cheques que ultrapasaem o valor da garantia, a 
consulta 4 feita por telefone, diretamente com o centre de consultas do 
banco. Segundo H4lio Amaury Minozzo, gerente da DivisSo de Comer- 
cializapao de Servipos RJ, irto s6 est4 sendo possfvel grapas ao sistema 
Itautec, que interliga todas as ag4ncias eletronicas da rede. 



Interface para 

A Teknoldgica, de Porto Ale- 
gre, acaba de lanpar a interface 
TL 85 que, acoplada ao conec- 
tor de expansSo dos TKs 83 e 
85 permite o acionamento, di- 
retamente pelos comandos do 
BASIC (LPRINT, LUST e 
COPY), de quaisquer impresso- 
ras ou m4quinas de escrever 
adaptadas com comunicapao pe- 
ralela Centronics. 

A TL 85 possibilita a gerapao 
direta pelo teclado dos caracte- 
res ASCII, inclusive letras minus- 
culas, caracteres espec/ficos da 
l/ngua portuguesa e caracteres 
de controle para impressoras. A 
versao com Editor — TL 85-E — 
possui um editor de textos de- 
senvolvido pela Teknol6gica e 
gravado em EPROM que gera 



linha Sinclair 

textos que podem ser armaze- 
nados em cassete e posteriomen- 
te impressos ou editados. Entre 
as suas principals caracter/sticas 
destacam-se a separagao sil4bica 
dentro das regras da I fngua por- 
tuguesa, ajuste autom4tico das 
margens verticals e horizontais, 
par4grafos, negritos e sublinha- 
mento autom4tico, ajuste de es- 
papamento, definigJo de campos 
vari4veis para mala direta. 

A Teknoldgica tamb4m ofe- 
rece interface de impressora pa- 
ralela para o CP-300, expansSo 
de EPROM para o TK-85, cartao 
de impressora para computado- 
res da linha Apple. Maiores infor- 
mapoes na Av. Sao Pedro, 1062, 
tel.: (0512) 42-8549, Porto Ale- 
gre — RS. 



Proteger programas , 
nao o software 



A protegSo legal deve recair 
apenas sob re os programas de 
computador e nSo sobre o soft- 
ware, conceito este bem mais 
abfangente, que inclui desde a 
espetificagSo funcional (o que o 
programa faz), a documentagSo, 
o programa em si, e at4 o 
manual do usu4rio. 

Essa foi a posigSo que o 
Brasil levou 4 ultima reuniSo da 
OrganizagSo Internacional de 
Propriedade Intelectual — 
ONPI, recentemente realizada 
em Canberra, Austr4lia, e que 
obteve grande repercussSo entre 
os participantes do encontro. 

A delegagSo brasileira, che- 
fiada pelo embaixador do Brasil 
na Austr4lia e integrada por 
Francisco Eduardo Rego Rama- 
Iho, representando a Assespro, e 
por Jos4 Antonio Faria Correia, 
da AssociagSo Brasileira de 
Propriedade Internacional — 
ABPI, tamb4m contestou a 
opiniSo — predominante entre 
os delegados dos pafses desen- 
volvidos — favor4vel ao aprovei- 
tamento, mediante adaptagdes, 
da atual legislapao de direitos 
autorais (copyright). 

Segundo Ramalho, que 4 
diretor de software da Asses- 
pro-Nacional, a tese do copy- 
right saiu bastante abalada pelo 
quest ionamento dos participan- 
tes, sobretudo da delegap4o 
brasileira que, segundo ele, teve 
"uma participapSb bastante 
agressiva". Outros mecanismos 
de protegSo normalmente invo- 
cados, sobretudo nos EUA, 
como a marca, a licenpa com 
base no segredo comercial (trade 
secret) e a patente tamb4m se 
mostraram ineficazes ou pouco 
apropriados. 

Ap6s definir o programa 
como "o conjunto organizado 
de instrupdes capaz de dirigir 
m4quinas autom4ticas de pro- 
cessamento de informagOes, 



para faz4-las funcionar de modo 
e para fins determ i nados”, e de 
consider4-lo como um "insumo 
estrat4gico", uma "ferramenta 
para ativar a economia dos 
pafses", a delegagao brasilei- 
ra propds encarar-se os progra- 
mas como uma pega de uma 
m4quina, um bem econ&mico 
suscetfvel de explorag4o comer- 
cial e nSo como propriedade 
intelectual. 

A tese brasileira recebeu o 
apoio un&nime dos pai'ses em de- 
senvolvimento, conta Ramalho, 
mas foi vista com reserves e at4 
mesmo combatide pel as nagdes 
industrializadas, em especial os 
Estados Unidos, que j4 dispdem 
de um grande acervo de pro- 
gramas a proteger. Como o 
copyright tern sido o principal 
mecanismo de protep&o utiliza- 
do por esses pa fees, eles temem 
ficar desprotegidos caso a ONPI 
(6rg4o das Nagdes Unidas) deixe 
de reconhecer a validade do 
copyright para esse caso. A 
grande maioria das nagdes, con- 
tudo, apoia a posigSo brasileira, 
enquanto uns poucos pai’ses do 
oriente, notadamente Cingapura 
e Cor4ia, optam pela "pirataria 
deslavada", livre de qualquer 
esp4cie de protegfo. 

A reuniSo de Canberra, ape- 
sar do clima de discussSo 
polftica que a envolveu, teve 
car4ter eminentemente t4cnico, 
com o objetivo de fornecer sub- 
si'dios a um documento amplo e 
que conte com o apoio da maio- 
ria dos . pai’ses e organizagdes 
membros da ONPI. Com base 
nas conclusdes t4cnicas desse en- 
contro, a ONPI ir4 realizar, ain- 
da este ano, uma nova reuniffo 
para examiner os aspectos jurf- 
dico e politico da questi’o, 
quando entSo partir4 para a ela- 
boragSo do documento defini- 
tive. 



Automa^ao de escritorios 
e destaque na ll a FUSE 



De 20 a 24 de junho estar4 se realizando em S£o Paulo, no pevilh4o 
de exposigdes do Anhembi, all? FUSE — Feira Internacional de Uten- 
sdios e Servigos de Escritdrio, que vai reunir cerca de 180 empresas de 
lnform4tica, Telecomunicagdes, Mobili4rio e fornecedores de servigos e 
materials. 

O ponto alto este ano ser4, sem duvida, o setor de automag£o de 
escritdrios, em virtu de das grandes modificagdes que as novas t4cnicas 
dever So em breve provocar no perfil desse ramo de atividade, com a eli- 
minagdo dos processos burocr4ticos e de circulagSo de papel, liberando, 
assim, a m4o-de-obra para tarefas mais criativas. Paralelamente 4 mostra 
serSo realizados semin4rios com especialistas intemacionais no assunto. 



Compumicro: 



Experiencia 
e atendimento 
personalizado 



"A Compumicro n4o 4 uma 
loja. Seguimos uma filosofia — 
conseguida atrav4s da experi4n- 
cia de nosso trabalho em outras 
lojas — de que um ponto de 
venda que oferega desde calcula- 
doras, TK, DGT, at4 micros de 
16 bits nifo pode garantir um 
bom atendimento ao cliente. 
Por isso, a Compumicro tern 
uma faixa especffica de clien- 
tes, atendidos de prefer4ncia 
com hora marcada. O cliente 
tern conforto e tranquilidade 
para passar at4 tr4s horas assis- 
tindo a uma demonstrag4o ex- 
clusive de um sistema". Assim 
Ernesto Marques Camelo, um 
dos sdcios da Compumicro, de- 
fine a empresa, situada no Cen- 
tro do Rio de Janeiro, aberta em 
janeiro desse ano. 

Os produtos oferecidos pela 
Compumicro sSo: Unitron ("o 
Apple cujo fabricante nos inspi- 
re maior confianga"). Nexus 
("da linha de 16 bits, a Scopus 
foi escolhida por ser uma em- 
presa apta a acompanhar a evo- 
lugtfo dos produtos IBM") e im- 
pressoras Elebra, Elgin e Scrit- 
ta. Nenhum micro TRS-80, pois 
"4 uma linha que j4 morreu". 

Ernesto Camelo explica que 
os PC-likes tern nas organiza- 
gdes de grande porte (bancos e 
financeiras) e na 4rea de siste- 
mas (centres de processamento 
de dados) os seus grandes com- 
pradores: "os primeiros comple- 
mentam suas necessidades com 
o PC nacional para evitar pro- 
blemas com a fiscal izagSo, e os 
segundos aceitam agora a neces- 
sidade de substituigfo de termi- 
nals por micros, principalmente 
quando sSo de tecnologia IBM”. 

As vendas s£o dirigidas, co- 
mo se pode observar, a um pu- 
blico especffico: "No 119 andar 
de um ediffcio 4 rare entrar in- 
cautos. As pessoas que nos pro- 
curam v4m geralmente atrav4s 
da propaganda cliente a cliente. 
Temos tamb4m uma equipe de 
vendas externa, a publicidade 
em vefculos adequados e um 



bom numero de clientes e con- 
tatos do tempo em que traba- 
Ihamos na Computique e na 
Clappy". 

Mas seja o cliente uma pe- 
quena, m4dia, grande empresa 
ou um profissional liberal, Er- 
nesto garante que ele j4 chega 
4 Compumicro sabendo qual o 
problema que pode ser resolvi- 
do com a ajuda do micro. A 
equipe ent£o analisa e deter- 
mina o tipo de sistema adequa- 
do ao cliente e faz a demonstra- 
gSo. "Quando n5o podemos 
atender 4s necessidades do clien- 
te, pedimos desculpas e indica- 
mos onde ele deve ir". 

Os programas tamb4m s4o 
demonstrados ao cliente. Se ele 
quiser, a Compumicro desenvol- 
ve um software esp>ecffico para 
ele, mas "preferimos selecionar 
um pacote que j4 exista no mer- 
cado. ^ como comprar um ter- 
no na loja e fazer um no alfaia- 
te: pode ser que no comprado 
pronto a perna da calga fique 
um pouco mais justa que o 
ideal, mas a diferenga de prego 
compensa. Um sistema desenvol- 
vido sob encomenda custa mais 
que 50% do prego do equipa- 
mento e hoje j4 existem software- 
houses especial izadas que su- 
prem muito bem o mercado". 

Quanto 4 assistencia t4cnica, 
Ernesto segue um pensamento 
que sempre defendeu: ela deve 
ser prestada pelo fabricante e 
nSo pelo revendedor. 

Quanto 4s formas de venda, 
al4m das tradicionais, a Compu- 
micro oferece uma nova modal i- 
dade: o aluguel com opgao de 
compra. "Vendemos o equipa- 
mento 4 Rent-a-Type (empresa 
de aluguel) e ela o aluga ao 
cliente. As prestagdes sSo fixas 
(o que 4 uma vantagem em re- 
lag4o ao leasing) e variam de 12 
a 18 meses". 

A Compumicro Informitica 
Empresarial Ltda. fica na Rua 
Sete de Setembro, 99/1 1 9 andar, 
tel.: (021) 224-7007, Rio de Ja- 
neiro, RJ. 



Aplicativos CCE 

Atrav4s de acordo com a Intelligent Software, dos EUA, a CCE pas- 
sou a comercializar programas aplicativos, entre eles, o Supervisicelc 
(planilha eletronica de c4lculos), a Jenele Migice (processamento de 
textos) e Controle Finenceiro. Os programas v4m acompanhados de ma- 
nual em Portugu4s e custam em m4dia 8 ORTN. Informagdes pelo tel.: 
(01 1 ) 265-5344, Sao Paulo. ■ 
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Quer um pro grama que o livre dos maga rites cal cut os de volume de figuras 
geometricas? Aqui estci ele, para o seu TRS-80 mode/o / ou III 



Como calcular volumes 
sem fazer for^a 

Heber Jorge da Silva 



Q ualquer micro compativel 

com o TRS-80 modelos I ou 
III com 16 Kb de RAM 
poderS rodar este programa, 
cujo objetivo e calcular o 
volume de 16 figuras geometricas 
diferentes. 

0 programa apresenta um menu com 
as op^Oes correspondentes £s 16 figuras 
disponfveis para calculo (figura 1). 
Escolhendo uma, o computador plotard 
no video a figura requisitada, 
solicitando ao usuerio entrar com as 
medidas necessdrias aos cdlculos. Ao 
in forme-las, deve-se ter o cuidado de 
usar sempre a mesma unidade de 
medida, pois o programa n£o faz 
conversOes. 

Observa?So: as impressoras 




Figura 1 



costumam imprimir de forma diferente listagem esta opera^ao equivale ao 
o cardter de exponential . Os mais cardter H • Portanto, durante a 

utilizados sSo: 6, A,Q e t . Em nossa digita^o, substitua-o adequadamente. 



SUPRIMENTO E COISA SERIA 



Malenha o seu computador bem alimentado adquirindo produtos de quaiidade consagrada 

• Fita Magntlica 600 1200e2400P4s 

Discos Magnei.cos 5 Mb 16 Mb 80 Mb etc „ . FitaCARBOFITASp/Impressoras Globus M 200- B 300/600 

DISKETTES: 5 1/4 e 8" • marca VERBATIM • Fita p/ Imprassoras: Elebra, Elgin. Epson, Digilab. Diablo, etc. 

ETIQUETAS PIMACO-PIMATAB j ; 



Calculo de Volumes 




;Q:IFQ<iORQ)16THEN 



10 ' ***««** »*«*»«**«**«**«»»#*««*** »«****»*«* »««*«**« ***«»* 

15 '*** CALCULOS DE VOLUMES *** 

20 '*** POR HEBER JORGE DA SILVA - BRASIL I A-DF , MARCO/83 *** 

25 '****•*************#************##********#************** 

28 REM*** MENU PRINCIPAL 

30 CLS : PR INT3454 , CHRl ( 23) ■"** CALCULOS DE VOLUMES **":F0RD=1T015 
00:NFXT 

40 CLS : PR INTTAB (20 ) "** MENU **":PR INTTAB < 10)"*** CALCULOS DE VOL 
IIMES ***":PRINT 

50 PRINT" 1 - Cubo 9 - Cone":PRINT" 2 - 

Par al el ep i pedo 10 - Tronco de Cone":PRINT" 3 - Pris 

ma Triangular 11 - Esfera" 

60 PRINT" 4 - Piramide 12 - Setor Esferico":P 

RINT" 5 - Tronco de Piramide 13 - Zona Esfer i ca":PRINT" 

6 - Cunha 14 - Zona Esfer ica (2 bases)" 

70 PRINT" 7 - Cilindro 15 - Cunha Esfer ica":P 

RINT" 8 - Tronco de Cilindro 16 - Elipsoide" 

80 PRINTiPRINT 

90 PR INTTAB ( 15)""; : INPUT"S E L E C I 0 N E ";Q: IFQ< 1 ORQ) 1 6THEN 

90 

100 G0SUB97n:0N»iG0T0110, 120, 140, 160,180,210,230,240,250,260,280, 
290 , 300 , 320 , 330 , 340 

110 PRINT30, "VOLUME DO CUB0":G0SUB350:PRINTa655,"a":G0SUB080:V=A 
C3SG0T0860 

120 PR1NT3128, "VOLUME DO PARALELEP IPED0":G0SUB370:POKEP+428, 99:P 
OK EP + 6 16, 98 : P0KEP+660 ,97:PRINT3704, "" : G0SUB880 : G0SUB890 s G0SUB900 
130 V=A*B*C : G0T0860 

14U PR INT30, "VOLUME DO PRISMA TRIANGULAR REGULAR":G0SUB390:P0KEP 
+452,97:P0KEP+472,104:PRINT3704, "CALCULANDO A AREA DA BASE":G0SU 
B880sS=.433*AL2:G0SUB770sQ0SUB780 
1 50 GOSUB 410: GOSUB i 000 : V=S*H : G0T0860 

160 PRlNT3fi4, "VOLUME DA P IR AMIDE" : G0SUB420 : PR INT3704 , "CALCULANDO 
A AREA DA BASE":G0SUBBB0:S=AC2:G05UB770:G0SUB7B0 
170 GOSUB 4 40 : FOR X=44T054STEP3:SET(X,8):SET(X,24):NEXT:P0KEP+344, 

1 04 : GOSUB 1 000 : V=S* H/3 : G0T0860 

180 PRINTS!), "VOLUME DO TRONCO DE P IR AMIDE" :G08UB450 : PR INT3704 , "C 
hI.CULANDO A AREA DO TOP 0" : GOSUB 880 : S i = AT 2 : GOSUB 770 : GOSUB 780 : GOSH 
B480 

190 PR INT37 04 , "0 VAI.OR DA AREA DO TOPO E ; SI : PR INT3768 , "CALCUL A. 
NDO A AREA DA BASE":G0SUB890:S2=BC2:G0SUB780:G0SUB490 
200 PR INT3768, '0 VALOR DA AREA DA BASE E '";S2:F0RX=0T06STEP2:SET 
(X, 13) :SET(X,29) : NEXT :P0KEP +449, 104 :G0SUB910: V=H/3* < S1+S2+SQR < Si 
*S2 > ) : G0T0860 

210 PRINT3128, "VOLUME DA CUNHA":G0SUB500:PR 1NT3704 , "":G0SUB88O:G 
0SUB890 : GOSUB 900 : GOSUB 52D : GOSUB 910 
220* V- ( < 2*A+C ) *B *H ) / 6 : GOStJB 800 : G0T086O 

230 PR TNT 30, "VOL IIME DO CILTNDR0":G0SUB530:G0SUB570:G0SUB580:G0SU 
R1010:V=3. i4159*RC2*H:G0T0860 

240 PR INT30 , 'VOLUME DO TRONCO DE CILINDRO" :G0SUB530sG0SUB570:G0S 
Un590:PRINT3704,"":G0SUB940:G0SUB960:V=l . 5708*R T2* < HI +H2 > :G0T086 
0 

250 PRINT30," VOLUHF DO CONE'" : G0SUB530 : GOSUB 570 : GOSUB 600 : GOSU 
Bi010lV«3.14159«<fiC2>*H/3»G0T0B60 

260 PR INT30 , "VOLUHE DO TRONCO DE CONE" : GOSUB 530 : GOSUB 570 : GOSUB 61 

0 : PR 1 NT 37 04, "":G0SUB950:G0SUB9 10 

270 V=1.0472*H*<R2C2+fi2)*<MC2+Ri> :G0T0860 

280 PRINT30, "VOLUME DA ESFER A" : G0SUB530: G0SUB640 : PR INT3704 , "" : GO 
SUB 940 : V=4*3 J 1 4 1 59*R C 3/3* G0T0860 

290 PRINT3U,"V0I UME DO SETOR ESFER ICO" :G0SUB650:G0SUB670:G0SUB68 
0:G0SIJB690: GOSUB 1020: GOSUB 1010 :V=2*3.14159*RC2*H/3:G0T0860 
300 PRINT30, "VOLUME DA ZONA ESFER ICA" : GOSUB 650 : G0SUB670: F0RX=7T0 
46: SET ( X, 12) :NEXT :F0RX=44T052STEP4 : SET < X , 7 > :SET<X, 12) :NEXT :POKEP 
+216, 104: GOSUB 1020: PR INT3704 , : G0SUB940:G0SUB910 
310 V=3. 1 4 l 59*HL2* ( R-H/3 ) :G0T086Q 

320 PRINT30, "VOLUME DA ZONA ESFER ICA < 2 BASES )":G0SUB650:G0SUB 
700 : PR INT3704 , : GOSUB 920 : G0SUB9 10 : V= . 5236*H* ( <3*AC2/4)+(3*BC2/4 
) +HC2 ) s G0T086O 

330 PR INT30, "VOLUME DA CUNHA ESFER ICA" : G0SUB650 : G0SUB720 : GOSUB 10 
20: PR INT3704 , "": GOSUB 940 : GOSUB 870: V=. 01 16*F *R C3s G0T0860 
340 PRINT30, "VOLUME DA EL IPSO IDE": GOSUB 730: PR I NT3704 , "": GOSUB 930 
:V=4*3. i4159*A*B*C/3:G0T0860 

350 F0RX=10T046: SET ( X , 13 ) : SET ( X , 29 ) : NEXT : FOR X=22T058 : SET < X , 7 ) s NE 
XT : X=20 : FOR Y=7T0i 3: GOSUB 850: NEXT : X=56:F0R Y=7T013:G0SUB850:NEXT :X 
=56 : FOR Y=23T029: GOSUB 850: NEXT 

360 F0RY=7T023:SET <59, Y) : NEXT :F0R Y=13T029 : SET ( 9 , Y ) :SET(47,Y ) :NEX 
T : F OR Y=7T023STEP2 : SET ( 22 , Y ) :NEXT :F0RX=22T058STEP3:SET < X , 23) :NEXT 
: X=22: FOR Y=23T029:SET < X, Y) :X=X-2: NEXT : RETURN 

370 F0RX=22T082:SET(X, 14) : NEXT :F0RX=10T070: SET < X , 20) :SET(X,29) :N 
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INSTITUTO DE TECNOLOGIA ORT 
CENTRO DE INFORMATICA 



CURSOS 

LINHA IBM (Apoio Marcodata) 

0S/VS1 - VSE - VM/CMS - VSAM 
CICS - DL/1 - COBOL: T^CNICAS E 

otimizaqAo 

MICROINFORMATICA 

BASIC - ASSEMBLER - PASCAL 
LOGO - CP/M - VISICALC 
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DURAQAO: 9 MESES 
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FOLHETOS EXPLICATIVOS 
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COMO CALCULAR VOLUMES SEM FAZER FORQA 





TODA A LINHA 
DE MICROS E 
MINICOMPUTADORES 



A intormapao nas pontas dos seus dedos 



Gerenciador de 
banco de dados 



mm 


□ 


□ 



MS-OOS (1BM-PC) CP/ 
M CP/M-86 CROMIX 
COOS MP/M MP/M-B6 

□ Cursor soderx^vvl 
para o uso de funpoes 




Automapao 
de escritonos 



Requerimentos do 
Sistema: 

□ (Mlcroprocessedoree 8060, 
8065, 280, 8086. 8088) 

□ 64K p/ CP/M; 128K p / CP/ 
M-86 e MS-DOS; S6K p I 
Appte II 

□ 2 Diskeles cl mtnfrno de 
126K cade 

□ Terminal c 80 colunes e 
cursor endelecavel 

□ Impreaaora com no mlnl- 
mo 80 colunaa. 



Otamec (iMe 8.100) MtcrrxSgftal (TK'a 83/85/2000) 
CP's 200300 500, Impreeeoraa, eMhra, Mgln, dlamec 
M to oengarho I e ■ e Apple- Tronic 
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Fttm p / unprsesoTM. aiebra, dlgilab, dlablo, caotrootc. 
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■■■ PROLOGICA 

■x# microcomputadores 




EXT : FOR Y=20T 029 : SET <10,Y):SET<72,Y): NEXT : FOR Y=1 4T023 :SET < 84 , Y ) : N 
EXT :F0RY=14T023STEP2:SET (23, Y) :NEXT :F0RX=23T080STEP3 : SET ( X , 23 > :N 
EXT 

380 X=21 : FOR Y=14T020:GOSUB850 : NEXT: X=8i: FOR Y=i 4T020 : G0SUB850 : NEX 
T : X=8i : FOR Y=23T029:G0SUB850: NEXT :X=23: FOR Y=23T029: SET <X,Y) :X=X-2 
s NEXT sRETURN 

390 X=i8:F0RY=i8T029:SET(X, Y) :X=X-i : NEXT : X=18 : FOR Y=18T029 : SET < X , 
Y ) :X=X+i :NEXT 5 F0RX=7T 029 : SET < X , 29) :NEXT:X=45:F0RY=4T018:G0SUB850 
®X+i : NEXT 

400 X=37:F0RY=14TO29:SET(X,Y) : X=X-2 : NEXT : F0RX=37TO58STEP3: SET < X , 
14) : NEXT : X=47 : FOR Y=4T0i 4STEP2 : SET (X, Y) :X=X-2:NEXT: RETURN 
410 A=i0:B=18:F0RY=18T029sG0SUB980:A=A-l :B=B+l: NEXT: RETURN 
420 FOR Y=RT029 : SET < 24 , Y ) : NEXT : X=22: FOR Y=9T023 : FOR D=i T02 sSET < X + D, 
Y ) : NEXT : X=X-i :NEXT : X=26 :F0R Y=9T023 : F0RD=i T02 : SET ( X-D , Y ) : NEXT : X=X 
+1 : NEXT : X=7 : FOR Y=24T029:F0RD=1T03: SET < X+D, Y >: NEXT : X=X+3 : NEXT 
430 X=4 1 : FOR Y=24T029 :F0RD=1T03:SET <X-D,Y):NEXTs X=X-3: NEXT : X=24 :F 
0RY=19T024:SET(X, Y) : X=X-3 : NEXT : X=24 : FOR Y=19T024 : SET < X , Y) :X=X+3:N 
EXT : P.OKEP+593, 97 sRETURN 

4 40 A=24 : B =24 : F OR Y== i 9T024 : G0SUB98Q :A=A-3:B=B+3: NEXT : A= 1 1 s 8=37 : F0 
R Y=?4T029 :G0SUB980: A=A+3: B=B-3: NEXT :FORY=20T029: RESET ( 25 , Y ) :NEXT 
s SET (22, 29 ): RETURN 

450 F0RX=32T049:SET<X,9> : NEXT :F0RX=20T037 : SET (X, 13) : NEXT: FOR X=22 
T 059 STEP 4 : SET ( X , 20 ) : NEXT : F0RX= 10T047 : SET ( X , 29 ) : NEXT : X=20 : FOR Y = 1 3 
T029:SET(X, Y) : X=X- . 6 : NEXT : X=47 : FOR Y=29T0i 3STEP- 1 : SET < X , Y) :X=X-.6 
:NEXT 

460 X=60:F0RY=20T09STEP-l:5ET< X, Y> :X=X-1 : NEXT : X=22 : FOR Y=20T09STF 
F'-?:SET(X, Y) :X=X + 2: NEXT: Y=9: FOR X = 49T037STEP-1 : SET < X , Y ) : Y=Y+ . 3: NE 
XT : Y=9:F0R X=J41 022STEP -1 :SET( X, Y ) * Y=Y+ . 3: NEXT : Y=20:FORX=60T048ST 
EP-1 : SET (X, Y) :Y=Y*.7: NEXT 

4 70 X=22:F0RY=20T029STEP2:SET (X, Y > :X=X-2. 5: NEXT: POKEP +1 48,97 :P0K 
EP +540, 98* RETURN 

480 A=30 : B = 46 : FOR Y=1 0T01 2 :G0SIJB980 : A=A-3 : B=B-3 : NEXT : RET URN 
490 A=23:B=59:F0RY=20T029:G0SUB980:A=A-i .4:B=B-1 .2:NEXT:X=42:F0R 
f=20T029 : RESET < X , Y ) : X=X+ . 6 : NEXT : RETURN 

500 FOR X= IT 091 :SFT (X, 17) :NEXT:X=1 : FOR Y=i7T029 s SET < X , Y ) : X=X+ 1 s NEX 
T:X=9i :F0RY=17T029:SET(X,Y) :X=X-1 :NEXT:FORX=13T079:SET(X,29) :NEX 
T : X=?l :F0R Y=17T024 *SET <X,Y):X=X+. 3 : NEXT 

510 X=1 :F0RY=17T024:SET<X, Y> :X=X+3:NFXT:F0RX=22T093STEP4:SET(X,2 
4> : NEXT :X=77: FOR Y=29T025STEP-i : F0RD=1 T03:SET ( X+D , Y) :NEXT :X=X+3:N 
EXT :X=l2*r 0RY=29T024r>TEP-2:SET« X, Y) :X=X+4 : NEXT :P0KEF +279, 99: POKE 
P+621 ,98: POKEP+663, 97: RETURN 

520 F0RY=18T029STEP2:SET< 110, Y) : NEXT : P0KEP+503 , 104 :F0RX=100T0i 16 
STEP3:SET(X, 17) :SET(X,29) :NEXT: RETURN 

530 F0RX=20T032:SET(X,7) :SET<X,29> :NEXT:F0RA=0T03:SET< 16+A,8> :SE 
T ( 33+ A ,8): SET ( 16+A,28) s SET < 33+ A , 28 ) : SET <12+A,9) : SET < 37 + A , 9 ) :SET< 
12+A, 27) : SET ( 37+A, 27) : NEXT 

540 F0RA=GT0 1 *SET< 10+ A , 10 ) : SET < 41 +A , 10 ) :SET ( 10+ A , 26 ) : SET < 41 + A , 26 
) * SET < B+A, 11) :SET < 4 3+ A, 11 > :SET (8+ A, 25) :SET < 43+A, 25) : NEXT :X=7: FOR 
Y=12T0i 5 : SET ( X , Y ) : X=X-1 : NEXT : X=45 : FOR Y = 12T0i 5 : SET <X,Y> *X»X+i : NEX 
T 

550 X=7 : FOR Y=24T021STEP-i : SET ( X , Y ) :X=X-i :NEXT:X=45:F0RY=24T021ST 
J.P-1 :SFU>L_YiiX^(+l :NEXT:FORY = 15T016: SET <4,Y):SET<48,Y> :NEXT :F0R 
Y=20T021 :SET(4,Y):SET(40,Y): NEXT :F0RY=17T019:SET(3,Y):SET(49,Y) : 
NEXT 

560 X=26:F0RY=18T026:SET(X, Y) :X=X-2: NEXT: POKE 15815, 114: RETURN 
570 FOR Y=3T032STEP2 : SET ( 26 , Y ) :NEXT :F0RX=2T0126STEP4 : SET < X , 18 ) : NE 
XT : RETURN 

580 FORX=56T0124 £ SET ( X , 7 ) : SET < X , 29 ) : NEXT : FOR Y=7T029 : SET ( 56 , Y ) : SE 
T(124,Y):NEXT : POKE 16045 ,104: RETURN 

590 FORX=70T0124:SET(X,7):NEXT:F0RX=92T0124:SET(X,29) :NEXT:X=70: 
FOR Y=7T 029 : SET (X,Y):X=X+1:NEXT : FOR Y=7T029 : SET ( 124 , Y ) : NEXT :P0KE15 
474, 72 :P0KE16054, 104: RETURN 

600 FORY=7T029:SET(120,Y):NEXT:X=120:FORY=7T018:FORD=iT05:SET(X- 
D, Y) : NEXT : X=X-5: NEXT : X=120 : FOR Y=29T019STEP-1 :F0RD=1T05:SET(X-D,Y 
): NEXT :X=X-5: NEXT: FOR Y=18T032STEP2: SET <60, Y) :SET( 120, Y) :NEXT:F0R 
X=60T01?0STEP4:SET(X,32) : NEXT: POKEP +748, 104: RETURN 
610 FORX=21T031:SET(X,12):SET(X,24) :NEXT : FOR A=0T0i : SET ( 19+ A , 13 ) : 
SET < 32+A , 13) : SET < 17 + A, 14) :SET(34+A, 14) : SET ( 19+ A, 23) : SET <32+ A, 23) 

: SET ( 1 7+A , 22 > : SET ( 34+A , 22 ) : NEXT :SET ( 16, 15) : SET < 16,21 ) :SET< 15, 16) - 
sSET (15,20) 

620 SET <36, 15) : SET < 37, 16) : SET <36, 21 ) : SET <37, 20) :F0R Y=17T019:SET< 

1 4 , Y ) :SET < 38, Y ) :NEXT : X=26:F0R Y = 18T022: SET < X , Y ) : X=X+2 :NEXT : P0KEP + 
400, 1 14:P0KEP+40i , 49 :F0R Y=7T029 : SET < 1 1 0 , Y ) :NEXT:X=110:F0RY=7T012 
: F0RD=0T07 : SET < X-0 , Y ) : NEXT : X=X-7 : NEXT 

630 X=ii0:F0RY=29T024STEP-l:F0RD=iT07:SET<X-D,Y) : NEXT : X=X-7 : NEXT 
:FOR Y=12T024 : SET < 68 , Y ) : NEXT :F0R Y=3T01 1STEP2 : SET < 68 , Y ) : SET < 1 10, Y ) 

: NEXT :F0RX=68T0110STEP4: SET <X, 3 ) : NEXT :P0KEP+ 108, 104: RETURN 
640 F0RY=3T032STEP2:SET(26, Y) : NEXT :F0RX=0T053STEP 4 : SET ( X , 18) :NEX 
T : RETURN 
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650 F0RX=20T032STEP2:SET(X,7) : NEXT: FOR A=0T03STEP2: SET < 16+A,8) :SE 
T(34+A,8) : SET ( 12+A, 9) : SET ( 38+ A , 9 ) : NEXT : SET <10,10):SET< 42 , 10 ) : X=8 
:F0RY=1 1T016STEP2:SET (X, Y) : X=X-2: NEXT :X=44: FOR Y=1 1T016STEP2:SET< 
X, Y ) : X=X+2: NEXT :F0R Y = i 7T020STEP2 : SET < 3, Y ) : SET < 49 , Y ) :NEXT 
660 X = 48:F0RY=21T026STEP2:SF.T(X,Y) : X=X-2:NEXT : SET ( 42 , 26 ) :F0RA=0T 
03STEP2 : SET <38, 27 ): SET <34,28 ): SET <30,29 >: RETURN 

670 A=20 : B=32 : FOR Y=7T09 : G0SUB980 :A=A-4:B=B+4: NEXT: FOR X=10T042:SE 
T<X, 10) : NEXT: FOR X=8T044:SET(X, 11 ) :NEXT: RETURN 

680 A=8:B=44:F0RY=12T017:G0SUB980:A=A+3:B=B-3:NEXT:F0RX=9T043STE 
P2 : RESET <X, 12) : NEXT: RETURN 

690 F0RX=44T052STEP4:SET<X,7) :SET<X, 12) :NEXT:P0KEP+216, 104 : RETUR 
N 

700 PR INT3135, STRINGS < 12," F0RX=i 2T040 : RESET < X , 9 > : NEXT :F0RX=1 

0T042:SET(X, 10) :NEXT:A=8:B=44:F0RY=i 1 T01 5 : G0SUB980 : A=A-1 :B=B+i :N 

ext 

710 FOR Y=6T0i 1STEP2 : SET ( 10 , Y ) :SET ( 42, Y ) : NEXT : FORX = 10T042STEP4 : SE 
T < X , 6 > : NEXT :F0R Y=3T015STEP2 : SET (4,Y):SET<48,Y): NEXT :F0RX=4T048ST 
EP4:SET<X,3) :NEXT:F0RX=46T 058STEP4 : SET < X , 10) : SET < X , 15 ): NEXT : POKE 
P+77, 98:P0KEP+141 ,97: POKEP +282, 104: RETURN 

720 F0RX=20T032:SET<X,7) :NEXT:A=16:B=36:F0RY=8T018:G0SUB980:A=A+ 
l:B=B-l:NEXT:X=li :F0RY=4T07STEP2:SET(X, Y) :X=X+2:NEXT:X=41 :F0RY=4 
T07STEP2:SET<X,Y> :X=X-2:NEXT:PRINT375, "alfa"; :SET< 18,5) : SET <34, 5 
) :RETURN 

730 A=2O:B=42:F0RY=iiTO13:G0SUB98O:A=A-5:B=B+5:NEXT:A=20:B=42:F0 
R Y=29T027STEP-1 :G0SUB980:A=A-5:B=B + 5:NEXT:F0RX=7T055:SET<X, 14) :S 
ET < X ;26 ) : NEXT : F0RX = 4T058: SET (X,25):SET<X,15) :NEXT 
740 F0RX=2T060 : SET ( X , 16 ) : SET < X , 24 > : NEXT :F0RX=1 T061 : SET < X , 17 ) :SET 
< X , 23 ) : NEXT :F0R Y=18T022 : FOR X=0T062 sSET < X , Y ) :NEXT : NEXT : F0RX=86T09 
2 : SET < X , 1 1 ) sSET < X , 29 ) : NEXT : A=84 :B=94 :F0R Y = 12T016 : G0SUB980: A=A-1 s 
B=B+1 SNEXT 

750 A=84 : B=94 : FOR Y=28T 024STEP- 1 : G05UB980 : A=A- 1 :B=B + 1 : NEXT : F0RX=8 
0T098:SET(X, 17) :SET(X,23) :NEXT:F0RY=18T022:F0RX=79T099:SET(X,Y): 
NEXT: NEXT :FORX=i T01 OOSTEP 4 : RESET < X , 20 ) : NEXT : FOR Y= 1 1 T029STEP2 : RES 
ET<3i,Y):RE5ET(B9,Y):NEXT 

760 FORX=64T099STEP4:SET<X,20) :NEXT:SET< 101 ,20) : SET < 105 , 20 ) : SET < 

31,31 ) : SET <31 ,9) : SET (89, 9) : SET <89, 31 ) :FORY=9T016STEP2:SET <0, Y) :S 

ET<79, Y) SNEXT :F0RX=97T0 106STEP4: SET <X, 11 ) :NEXT: POKEP +196,97 :P0KE 

P +233, 98 SP0KEP+372, 99: RETURN 

770 PRTNTa704,STR ING1 <40, 32 ) : RETURN 

780 PR INT3768, STRINGS <40, 32 ): RETURN 

790 PR I NT 3832 , STRINGS (40,32) : RETURN 

800 PR I NT 3896 , STR INGS< 40, 32) (RETURN 

810 PR INT3960, STRINGS (44, 32) - : RETURN 

820 F0RP=16064T016106: POKEP , 1 76 : NEXT : FORP =16192T01 6234 : POKEP , 131 
:NEXT:FORI=1T06:PRINT3768," 0 resultado e' 

" t :F0RD=1T050 SNEXT: PR INT3784,USING /, ««M, KHK , , ««« . :F0 

RD=1T0400 :NEXT: NEXT 5RETURN 

830 PR TNT3960 , "Tec 1 c << RETURN >> para novo calculo 

// 

840 AS-1NKEYS: IFAS< >CHRS( 13)THEN840ELSERETURN 
850 F0RD=1T03:SET < X+D , Y ) : NEXT : X=X-2 : RETURN 

860 G0SUB770:G0SUB780:G0SUB790:G0SUB810:G0SUB820:G0SUB830:G0T040 
870 INPUT"Entre com o valor do angulo alfa";F:RETURN 
880 INPUT"Entr? com o valor do lado (a)"; AsRETURN 

890 INPUT"Entre com o valor do lado ( b ) " j B sRETURN 

900 INPUT"Entre com o valor do lado <c C5RETURN 

910 INPUT"Entre com o valor da altura <h )";H:RETIJRN 
920 INPUT"Entre com o valor do diametro menor ( a ) "• A: INPUT"Ent r e 
com o valor do diametro maior <b )"-B sRETURN 
930 INPUT /, Entre com a d i st anc i a < a )"; A : TNPUT"Ent r e com a distanc 
ia <b )"jB : INPUT"Entre com a distancia < c C : RETURN 
940 INPUT"Entre com o valor do raio (r )"-R :RETURN 

950 INPUT"Entre com o valor do raio maior < r ) " > R2 : INPUT"Ent r e co 

m o valor do raio menor <rl )";R1 sRETURN 

960 INPUT"Entre com o valor da altura maior (H)"yHl : INPUT"Entre 
com o valor da altura menor <h )";H2:RETURN 

970 CLS:PRINr3960,"< INFORME VALORES NA MESMA UNIDADE DE MEDIDA)" 

; :P=15360:RETURN 

980 F0RX=AT0B:SET(X,Y> :NEXT sRETURN 
990 F0RX=AT OB : RESET < X , Y ) : NEXT sRETURN 

1000 PR INT3704 , "0 VALOR DA AREA DA .BASE E '";S:G0SUB910:RETURN 
1010 PRINT3704, "" :G0SUB940:G0SUB910 sRETURN 
1020 X=26: 



Formado em Administrate) de Empresas pela UDF, Heber Jorge da Silva trabalha atualmen - 
te na Telebrasflia, onde exerce atividades ligadas & programaqSo de microcomputadores. 
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COLA EM MENOS 
DE 30 SEGUNDOS. 



Colabloc - If coladora nacional com 
tempo total de operacao maximo de 
30 segundos. 

Produto de mesa, compacto, simples e 
seguro, ideal para escritorios que nao 
exijam sistemas complexos de 
encadernapao. 

Perfeito para atender as necessidades de 
usuarios de computadores e graficas, 
cujo volume de trabalho de 
encadernapao nao seja grande. 
Executa urn trabalho limpo por nao 
necessitar de contato manual com a cola. 
Nao exige instalapoes especiais, sendo 
apenas necess^rio uma tomada 
rnonofasica de 1 10 volts 50/60 Hertz. 
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EQUIPAMENTOS PARA PROCESSAMENTO 
DE DADOS LTDA. 

Matriz: Rua Theodureto Souto, 308 Cambuci - CEP: 01539 
PABX: 270-8244 • Telex: 10111 36305 S5o Paulo SP 

REPRESENTANTES TECNICOS E COMERCIAIS 
EM TODOO BRASIL. 


















BRSTOS TIGRE 
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Microcomputadores com cr&dito direto ou leasing 



Aplicativos: controle de estoque: contabilidade: lolha de 
pagamento: contas a receber pagar. mala direta: cadastro 
de clientes e desenvolvimento de software para cada neces- 



sidade 



Temos toda linha de perifericos e suprimentos para acom 
panhar o crescimento de sua empresa. 



MICRONEWS COMERCIO E SERVIQOS LTDA. 

R. Assembler 10 Gr. 3317 - Ed. Centro Candido Mendes 
Tel.: (021) 252 9420 CEP 20011/RJ. 



tos de processamento de dados, 
assim como o papel desempenha- 
do pelas multinacionais, pela 
transferdncia de tecnologia e pela 
estrutura de mercado. Concluin- 
do, enfatiza a necessidade de po- 
li'ticas govemamentais destinadas 
a superar as barreiras oligopolis- 
tas estabelecidas por empresas 
multinacionais, para que a indus- 
tria brasileira possa continuar 
apresentando o mesmo ritmo ace- 
lerado de crescimento. 



Iho de projeto (definindo como 
o sistema lari), reconhecendo 
que os analistas muitas vezes pro- 
jetam e os projetistas muitas ve- 
zes fazem an£lise. 

Os autores procuram evitar 
ao miximo a introdugSo de novos 
termos, mas como a discipline se 
baseia no projeto estruturado 
(que possui seu prbprio vocabuli- 
rio) e na teoria sobre banco de 
dados relacional (que tambdm 
tern seu vocabul£rio prbprio), sur- 
ge, 3s vezes, uma terminologia 
desconhecida. Cada um desses ter- 
mos 6 explicado quando aparece 
pela primeira vez, sendo tamWm 
definido no gloss£rio, no final do 
livro. 



ANALISE 
ESTRUTURADA 
DE SISTEMAS 



ROSSINI, F ..Linguagem de 
MAquina para o TK, Editor* 
Micromega. 



I Linguagem de MAquina para o 
TK 6 destinado a pessoas que jA 
estejam familiarizadas com o BA- 
SIC desse equipamento, mas que 
tenham pouco ou nenhum conhe- 
cimento sobre linguagem de mb- 
quina. Dividido em duas partes, 
"As instrugfles em linguagem de 
mdquina do microprocessador 
Z80" e "Primeiras aplicagOes da 
linguagem de mbquinaparaoTK", 
o livro tern o rndrito de desven- 
dar partes que poucos conhecem 
do TK, revelando algumas de suas 
incrfveis possibilidades. 



namental e natureza da tecnolo- 
gia microeletrbnica. 

O livro examina importantes 
questCes levantadas pelo relativo 
sucesso alcangado no desenvolvi- 
mento de tecnologia sofisticada 
por um pal's em desenvolvimento. 
Dentre os tbpicos discutidos, es- 
tfo as oportunidades e dificul- 
dades com que se deparam as 
empresas nacionais para adquirir 
capacidade tdcnica para projetar, 
desenvolver e fabricar equipamen- 



GANE, C. SARSON. T, 

AnAlise Estruturada de Sistemas, 
LTC — Livros T 6cnicos e 
Cinetfficos Editors S.A. 

| An3lise Estruturada de Siste- 
mas comp6e-se de um conjunto 
de t6cnicas e instrumentos surgi- 
dos do sucesso da programagao e 
do projeto estruturado. Os auto- 
res buscam mostrar a diferenga 
entre trabalho de an^lise (definin- 
do o que o sistema far3) e traba- 



TIGRE, P. B. # Computadores 
Brasileiros; Industrie, Tecnologia 
e Dependinda, Editors Campus. 

I Dentro do tema "reserve de 
mercado", este livro analisa o de- 
senvolvimento industrial e tecno- 
Ibgico autbnomo do setor de In- 
formdtica 3 luz do comporta- 
mento competitive das empresas 
nacionais e multinacionais, estru- 
tura do mercado, politics gover- 






com acentuagao 
em portugues 
a^aa6ei666uug-2 
SISTEMA IVANITA 



No Video e 
na Impressora 

Totalmente compatlvel com o 
Processador de Texto * JANELA MAGICA II 



GRATIS! 

UM CURSO DE BASIC 
ENTREGA RAPIDA EM TODO BRASIL 



venha ujH LLU 

conhece-io computer store 

Linha Completa de Software para APPLE 

Al. Gabriel Monteiro da Silva, 1229 - J. Paulistano 
SSo Paulo - SP - Tel.: (01 1) 852-0799 



VISITE-N0S OU SOUCITE UM REPRESENTANTE 



(*) O Sistema IVAN ITA j& 6 compativel com as seguintes impressoras: 

• GRAFIX80/100 • ELEBRA 8010 / 11 / 30/ 31 • CENTRONICS 351 

• ISA EL -8000 • ELGIN LADY 140 I / 140 L • MAq de escrever OLIVETTI ET 

• MONICA El ■ 6010 • EPSON MX/RX/FX 80/100 • MAq de escrever IBM 96 / 196 




UM MICRO ACIMA 
DE QUALQUER SUSPEITA 



O Nexus 1600 conquistou a pre- 
ferencia dos usudrios brasileiros 
de microcomputadores compati- 
veis com IBM-PC. Tambem nao 
era para menos. Afinal quern | 
analisa a linha de micros de 
16 bits sabe que a qualidade do 
produto , a garantia de con- 
tinuidade de produgao e de \ 
acompanhamento dos langa- 
mentos da IBM no exterior, V 
sdo fundamentais para o su- \ ■ 

cesso, a medio e longo prazo, \ I 
desta nova linba de equipa- \| 
mentos. E quern estd no mer- * 
cado de informdtica sabe que (I 
somente o Nexus 1600 pode ofe- 1 
recer esta garantia. Operando iso- 
ladamente, funcionando como siste- 
ma multiusudrio, com ate 1 6 termi 



computador de grande porte , o Ne- 
xus 1600 e o “IBM-PC COMPATl- 
VEL” de melhor performance. 

Alem disso, o Nexus 1600 e o unico 
micro “IBM-PC COMPATIVEL” 
aprovado pela SEI. Isto significa 
que somente o Nexus 1600 e pro- 
duzido com pegas e componen- 
tes adquiridos legalmente no 
exterior, diretamente do fa- 
bricante de chips, com contro- 
le de qualidade e garantia de 
de fomecimento. Fomeci- 
mento hoje e amanha. 

A garantia e assisten- 
cia tecnica ao Nexus 1600 
* prestada diretamente 
======= == ^^ pelo fabricante, em todo 

o pats. Com o Nexus 1600 seu 
micro nao fica parado. 



nais ou emulando um terminal do 



A Compumicro e o fabricante garantem. 



Tudo o que voce precisa para implantar um NEXUS 1600 na 
sua empresa voce encontra na Compumicro. Levantamento de 
necessidades, especificagao de configuragoes, treinamento, for- 
necimento de Software nacional e importado, desenvolvimento 
e implantagao de sistemas, com a garantia da experiencia de 
quern mais entende de 16 bits no Brasil. 



VENDA — ALUGUEL — LEASING 



O maior revendedor NEXUS 
do Rio de Janeiro com os 
menores pregos do mercado 



ccnnaiTTO 

INFORMAUCA EMPRESARIAL LTDA. 

Rua Sets ds Setambro, 99 - 11? sndsr 
Tsl. PBX (021) 224-7007 
CEP 20050 — Rio de Janeiro — RJ 









EQUIPAMENTOS 



• Vendo novos: TK e CP, 

APPLE, impressoras e diskdrivers. 
Financio. Antonio. Av. Af. Pena, 
952, cj. 522. Tel.: (031 ) 222-3035, 
B. Hte-MG. 




VENDO 



• Vic 20 Commodore 64. Vendo 
interface p/cassete. Tratar com 
Gustavo, tel.: (Oil) 460-3208. 

• Radioamador vendo interfaces 
para CW (telegrafia) e RTTY (ra- 
dioteletipo) para os micros da li- 
nha SINCLAIR TK82/83/85, 
CP200. InformagSes com Renato 
Strauss PY2-EMI Rua Cardoso de 
Almeida 654/32 — 05013, Sib 
Paulo -SP. 

• Vendo CP300 em excepcional 
estado de conservag5o, prego 500 
mil a vista, motivos da venda: fi- 
nanceiros; interessados comuni- 
car-se com Ricardo Cardoso pelo 
tel.: (0132 ) 392746, Santos-SP. 



CURSOS 



• Basic I, Avangado e Cobol sib 

os cursos oferecidos pel a MIKRO, 
i Av. Af. Pena, 952, cj. 522. Tel.: 
(031) 222-3035. B. Hte-MG. 

• A PRO-INFORMATICA SIS- 
TEMAS CONSULTORI A E 
TREINAMENTO oferece regular- 
mente cursos de Cobol, Basic, 
Basic Avangado e Assembley com 
turmas reduzidas. Alim das aulas 
priticas, os alunos dispoem dos 
computadores com assistincia de 
monitores em horirios extra-aula. 
Rua Josafa Belo, 1 00 — Tel.: (031 ) 
337-8792 , Cidade Jardim — Belo 
Horizonte. 

• O CBI - CENTRO BRASILEI- 
RO DE INFORMATICA promove 
para os meses de Junho/Julho os 
cursos de BASIC, BASIC AVAN- 
QADO, MUNPS, COBOL, CP/M, 



LCGICA DIGITAL, ASSEMBLER, 
manutenqAo DGT 100/1000. 
Turmas reduzidas, certificado de 
conclusao e aulas priticas. Infor- 
magoes na Av. Passos, 1 1 5 — sala 
21 5 ou pelo telefone 233-1 1 23. 

• O NETC, estari promovendo 
mais uma vez com pleno sucesso, 
durante os meses de Junho/Julho 
e Agosto, os seguintes cursos: De- 
senvolvimento e Projeto de Siste- 
mas aplicados a Transmissao de 
Dados (45:00hs). Desenvolvimen- 
to de Interfaces A/D e D/A para 
Aquisigao de Dados e Controle 
(35:00hs), Sistemasde Comunica- 
goes por Fibras Cticas (40:00hs), 
Processadores BIT - SLICED 
(30:00hs) e outros mais. Infor- 
magoes, inscrigoes e pedidos de 
catilogo de Cursos, i Rua Alvaro 
Alvim, 37 — 29 andar — Centro 
Rio - CEP: 20031 - Fone: 
(021) 225-6013. 

• A Rio Micro esti promovendo 
cursos de Basic p/criangas e adul- 
tos. Horirio diurno e noturno, 
insc. abertas: Rua Visconde de Pi- 
raji, 330 Lj. 314 - Fone: 521- 
4888 — Ipanema e Centro — RJ. 

• O CBI - CENTRO BRASI- 
LEIRO DE INFORMATICA 
promove regularmente cursos de 
BASIC, BASIC AVANCADO, 
MUMPS, COBOL, ASSEMBLER, 
manutengio DGT 100/1000, CP/ 
M, L0GICA DIGITAL, Telepro- 
cessamento, Controle de proces- 
ses, redes locais, projetos de In- 
terface para Micros. Turmas redu- 
zidas, certificado de conclusio e 
aulas priticas. Informagdes na Av. 
Passos, 115 S/215 ou pelo tel.: 
233-1 T23. 



SOFTWARE 



• Vendo fitas com 8 jogos gri- 
ficos e coloridos em alta resolu- 
gio para o TK-2000 e similares 
Apple. Cada fita vem com os se- 
guintes jogos: SPIDER, LANDER, 
MEM0RIA, POKER. PIANO, 
BOXES, CATCH e EQUATE, 
alim de um programa monitor 
principal . Prego por fita com 8 
jogos: Cr$ 30.000,00. Pedidos pe- 
lo telefone: 266-4852 ramal 398 
ou 344 com Daniel. 

• Vendo CP/M (placa Z80 e dis- 
quete com o sistema operacio- 
nal)e dBase II tudo por 210 mil. 
Com Jamel — Cx. Postal 1346 — 
84.600 — Uniib da Vit6ria-PR. 

• Vendo: editor 6502 — Apple 
Disco. Tel.: (011) 579-1354 - SP 

— Enrique. 

. Vendo fita c/10 jogos americ. en- 
tre eles estao: Krazy e King Kong, 
Fogger I e II e Mazoggs. Apenas 
15 mil. Tr. c/Wagner — Pg. A. 
Pena, 77/603. S.J. dos Campos. 

• Fundagio do Eletro Soft, tern 
como objetivo comunicar aos lei- 
tores de Micro Sistemas e aos pos- 
suidores de aparelhos de Ibgica 
Sinclair (TRS — CP200 — Ringo 

— AS1000 — etc.), a troca e venda 
de programas. Escrevam pedindo 
catilogo para: Eletro Soft, Cx. 
Postal 037 — Sao Carlos, S. Cata- 
rina, CEP: 89885. 

• Vendo ou troco programas de 
jogos e utilitirios para a linha 
TRS-80 (Naja - JR - CP500 - 
CP300 — Dismac — Digitus) tra- 
tar com Jorge Luiz. R. Mendes — 
Rua da Matriz, 286 — apt? 12 — 



Santo Amaro — SP. Fone: (011) 
521-7127 - CEP: 04746. 

• DESK — programas iniditos 
para TK e CP200 16K c/slow — 
Fita 3 — Senha/Puzzle, Fita 4 — 
OVNIs/Sopa de letras — Cr$ 
9.000,00 por fita — cheque nomi- 
nal ou reembolso postal. Desk 
Eng. e Sistemas Ltda. Cx. Postal 
1 80 — 84.100 — Ponta Grossa-PR. 

• DESK — programas iniditos 
para TK e CP200 16K c/slow - 
Fita 1 Batalha Naval/Tiro ao 
pato, Fita 2 — Flip Flop/Biorri't- 
mo — Cr$ 9.000,00 por fita — 
cheque nominal ou reembolso 
postal. Desk Eng. e Sistemas Ltda. 
Cx. Postal 180 — 84.100 — Ponta 
Grossa-PR. 

• T roco e vendo programas para 
computadores da linha Sinclair, 
grande acervo. Tratar com Andri 
no perfodo da noite, pelo fone 
313546 ou enviar carta para Rua 
Dr. Zaudhick Saadi, 120 — Bela 
Vista — Porto Alegre, CEP 90000. 



DIVERSQS 



• Quero entrar em contato pos- 
suidores de M. S.,que tenham os 
n? s anteriores ao exemplar de 
fevereiro/84 para obter programas 
e utilitirios. Remeterei selos e en- 
velopes para a remessa de progra- 
mas. Cartas para Delmar Josi 
Thomi, Rua Izidoro Mary, 2037 
- CEP: 95100 -Caxias do Sul-RS. 



CLUBES 



Entre p/o Clube da Rio Micro. 
Basta pagar uma taxa de 8 mil e 
contribuir com um livro, teri di- 
reito a usar um micro por lOhs ao 
mes e acesso 'a biblioteca. Rua 
Visconde de Piraji, 330 lj. 314 — 
Ipanema — RJ. (Numero limitado 
de sbeios). 




QUEM MANDA 
NESTA PAGINA SOU EU! 



Apoiado! Equipamentos, Software, Cursos, Clubes e Diversos: 
voce 6 quem decide o que, quando e como anunciar nos 
Classificados MS. Quanto voci teri que pagar? Isso tambim 6 
decisao sua. Preste atengao: 

• cada linha de texto (30 toques, incluindo os espagos em bronco) 
custa Cr$ 2.000,00; 

• linhas incompletas serao cobradas como inteiras; 



• o prbprio anunciante deve checar o valor de seu anuncio com o 
nCimero de linhas que ele contiver; 

• o anuncio deve vir acompanhado de um cheque nominal i ATI 
Editora Ltda; 

Os textos devem ser datilografados ou escritos em letra de forma, 
obedecendo as 30 batidas por linha. Veja um exemplo: 



V 


e 


n 


d 


0 




D 


G 


T 


- 


1 


0 


0 




c 


0 


m 




3 


2 




K 




R 


A 


M 


9 




V 


i 


d 


e 


0 




e 




g 


r 


a 


V 


a 


d 


o 


r 




c 


a 


s 


s 


e 


t 


e 


• 




T 


r 


a 


t 


a 


T 


c 


0 


m 




M 


a 


r 


c 


o 


s 






t 


e 


1 


• 

• 


( 


0 


2 


1 


) 


2 


6 


7 


- 


0 


3 


3 


2 


• 



_. ./Micro 
Sistemas 



Maiores informagdes pelos telefones: (021) 262-5259 — RJ ou (011) 853-7758 — SP. 



RINGO R-470 CHEGOU A CIDADE. 
OS OUTROS MICROS QUE SE CUIDEM 




CrS 449. 



0 microcomputador Ringo R-470 6, disparado, o melbor em sua categoria. E mais ripido na execugAo de programas, oferece amplas possibilidades de 
expanse e 6 o unico micro totaimente projetado e desenvolvido no Brasil, aprovado peia SB • Secretaria Especial de Inform&ica. 
ijrp yprd- 3 d 6 Jfo hor&i nacional 

V 006 pode contar com ele para resolver proWemas pessoais ou profissionais, ou simplesmente para se dhrertir, atravAs de vArios jogos disponrveis em 

^AH^caStucS) AoquenAofaftaparao Ringo. Be 6 compatfvel com todos os programas do famoso Sinclair e possui equipamentos perifdricos 
exclusivosqueampliammuitoasuacapaadade „ , , . . 

Compare o Ringo R-470 com os similares e comprove: nunca apareceu um micro pessoal tAo profissionai por estas redondezas. 



CARACTERiSTICAS itCNICAS: 

•UiyjsgsrnBwcscbJigosdsmiQuiMZ-aO 

• 8 KBfiis ROM ependlNl para H X Brie 

• 16 XB v e* R/UI espaidM pel 48 X 

• IMtaM en qubque TV Plfl ou com 

• Conedor pn jMttcfc Oogot) 

• Tsclido npo QWBmr com 48 • 156 fund* • tide de tO0o 

imodineniiglo dt cwor i com^lol cam nptfglo miimMtci 

• ExcIusni iKla di irntrUo <)• ddio 

• Tata com 24 d* B cohjMi pan t«rto 



• RMOtu^io 64 1 44 plxds (vnidals grtHc#. podendo Stnglr ma 
merit ds W i Itt diando ulltado cam cirtucho* * 

• Ciiculos «nt*neboo», fun^es ingonomiMc*, logirftmic* • Mgxei 

• CirtuctK* "Instirt SolF (progrm.is spUcstwos m KM-nekato) 

• Vetobdade ds grxngio sm IHi cantl* 2.400 BPS 

EXPANSdES; 

• Grwsdor ds E?9CU pin gmir. adhar • cop»«r p»ogr«tMs sm c»tvcfio 

• Marte* pan impmseon ou miquina ds mttm ildWce 

• Sintsttador ds tons 

• UOOQI(ConMXilctgioWiMnlca-1200Bajde 



A veodin»k)j»e»p®c«eizjd««n micros, 
folo-rWdo-som a grandes magazines 
Nio ancontranbo o Ringo nestas locals, l»gue pan 
217.8400 (SP) ou <01 1) 800 6441 a 800.8442 (Outras 
locaHdabesdo BrasM) 000 grtfuito. 

RINGO EHM: 

0 akro qua acaHa baaaflos. 

Ritas bo Brasil Ltda. • Dmslo Informatics 
Telex (01 1) 34673 Rita BR 









o sucesso da qualidade maior, 
por um prego menor. 
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PC 2001: o 16 bits mais 
compativel com o mercado 




0°K20offo C ZZ °c££htoe versihl mKrocomputado, bras.le.ro de , 6 Ms reakhenw compshvel. em hardware e softwam. com 
o PC da IBM. o micro que vendeu mais de 600.000 unidades em 2 anos nos Estados Untdos 

Sikl^Sis de^O^OdtL^^c^l^nobg^e prego nactonars. que induem gerenciamento de bancos de dados . apl/cativos 
come rciars. financeiros e cientificos. 

^AdKionarxio penrtncosfo^pc200 1 cresce. executando desde tare/as rotmerras ate con t roles ad J T} ' n ' strat '^f c de P rocessos mf),s 
sofisticados. atuando como concentrador de tnformagdes. terminal intehgente ou descentrahzador de ststemas 

^^^e°fs Ms 5 MHz memdna ROM de 8 art 40KB e merrrtna RAM de 64 a 5 12KB. cinco conetores de 

video eZSlZ verde ou policrorrrtticos; interface de art 16 term, na.s para ^iM^s^sao 
algunsdos detaches do pequeno micro que trouxe ao Brasil a versatHidade de urn grande sistema. /* testado e aprovado por grandes 
empresas no Brasil. 

n U pr?m! U ^d,s!nbu,do como LINK 72 7 polo Link Tecnologia. a pnmerra empress bnskeita de desenvoNmento. que mine markenng 
e^cn^gJnTl^^de prodoiose supone sem glares no mercado Is'o srgndva o me, ho, sopor re ao usutno. e arnda 
pronta entrega. garantia de um ano. treinamento. assisrtnoa rtcmca efetuada no cltente . o preco — 

mais acesslvel do mercado. e uma rede qualificada de revendedores 
SAO PAULO : Ad Data - 282 0562 • Arte Imagem - 5420588 • Execplan - 
284 0085 • /marts 881 0200 e 533 21 1 1 • Microshop - 853 9288 • 

Sacco- 815-5367. 814 0598 e 853-5520 • SCI - 289 0099 •Servmiec - 

5 incus,*, e comdrcm A*. 
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Pergunta — Possuo um TK 85 e gostaria 
que vocis me ajudassem, pois com ele 
ocorrem alguns problemas estranhos: 
quando estou digitando um programa 
longo, ao pressionar alguma tecta o 
micro sai do ar. Tenho que desligar e 
ligar novamente para recomegar a digi- 
tagao. -4s vezes, aparecem linhas entre 
as ji existentes no programa em digita- 
gao, mas estas linhas, que surgem sozi- 
nhas, contem codigos em linguagem de 
miquina e, ao tentar apaga-ias, o pro- 
grama comega a correr e nao p4ra mais. 

( Fernando Cesar Ferreira, SC) 

MICRO SISTEMAS — Pelo que pude- 
mos avaliar do problema descrito, o 
que ocorre 6 simples falta de espago, o 
que 4 muito comum em programas lon- 
gos. 0 manual do equipamento 4 bas- 
tante claro com relagao a esse proble- 
ma (leia o capftulo 23: "Quando o 
computador fica repleto"), e na revis- 
ta ]4 foram publicados vdrios artigos 
que abordam este assunto, como o ar- 
tigo "Pequenas memorias, grandes 
economias" (MS nP 22). 

£ preciso tambdm nao esquecer 
que, mesmo que o seu computador te- 
nha uma expansao de 48 ou 64 K, so- 
mente 16 K estao disponfveis para pro- 
gramas em BASIC (veja o artigo "Siste- 
ma Operacional do ZX81-Parte I", em 
MS nP 25, p£g. 40). Embora as expan- 
soes deem a impressao de que 4 possf- 
vel escrever programas qui/om4tricos, 
isto nao 4 verdadeiro. 

Pergunta — Verifiquei recentemente, 
apds a expansao de 16 para 48 K no 
meu DGT-100. que alguns programas 
em linguagem de mdquina (que funcio- 
nam perfeitamente no CP- 500) nSo 
funcionam no DGT-100, por causa das 
setasfnormalmente usadas para mover 
algo na tela), pois programas como Pe- 
netrator e Galaxy Invaders, gravados 
em 500 bps e lidos no DGT-100, fun- 
cionam perfeitamente na parte de grt- 
ficos, mas as naves que estes jogos co- 
mandam nao obedecem ao coman- 
do de nenhuma seta, e o que 4 pior, 
nao obedecem a nenhuma tecla. Su- 
ponho, como o programa funcionou 
perfeitamente (exceto pelo que citei 
antes, sendo que no Galaxy eu conse- 
gui art dispa rar nos invasores, mas nao 



five modo de sair do centro da tela), 
que deve haver alguma pequena modi- 
ficagSo de software para rodar progra- 
mas desenvolvidos no TRS-80 Model o 
III para o TRS-80 Modelo I. Se for as- 
sim, 4 algo facil de ser resol vido? 

Outra duvida: os programas em lin- 
guagem de miquina quase sempre rtm 
o enderego de entrada diferente do en- 
derego inicial. Usando o DIG BUG pos- 
so conseguir os enderegos final e inicial. 
Mas nSo ha modo de obter o enderego 
de entrada, isto 4, lendo atravis do co- 
mando R 1 eu poderia obrt-lo, mas 
como a maioria dos programas que con- 
sigo vim do CP-500, s6 posso le-los em 
500 bps (e nesta velocidade o R 1 
nao funciona). Se o comando SYSTEM 
s6 exige a digitagao de / RETURN, 
apds a entrada do programa, para fazi- 
lo funciona r, suponho que devem ha- 
ver dois bytes que armazenem o ende- 
rego de entrada na forma LSB/MSB. 
Se isso 4 verdade, qua is sao? Se nao 4, 
como devo proceder? (Sergio Meira, 
PE) 

MICRO SISTEMAS — Realmente, em 
que pese a praticamente total compa- 
tibilidade do BASIC do DGT-100 
(Mod. I) eo do CP-500 (Mod. Ill), cha- 
mado BASIC Level II, este problema 6 
algo bem complexo: a filosofia de cons- 
trugao destesequipamentos 6, sob mui- 
tos aspectos, diferente. Em consequen- 
cia, um programa em linguagem de mS- 
quina de um micro pode vir a acionar 
portas E/S completamente diferentes 
das desejadas quando rodado em outro 
equipamento, mesmo tendo sido con- 
vertido com sucesso atraves de pro- 
gramas como o Convert, Convene /JCL, 
Transfer etc. 

Quanto 4 sua segunda duvida, os en- 
deregos que voce deseja sao: 40DF e 
40E0 (16607 e 16608). A respeito des- 
te assunto, leia o artigo "Linguagem de 
mciquina no DGT-100", publicado em 
MS nP 15, p^gina 14. 

Pergunta — Possuo um CP-300 sem 
drive e gostaria de saber como devo 
proceder para digitar um programa em 
linguagem de maquina. 0 prdprio mo- 
nitor residente do equipamento 4 su- 
ficiente ou 4 preciso usar um progra- 
ma editor Assembler? Eu ja tentei com 



um editor Assembler para o TRS-80, 
mas ao terminar de carregar o progra- 
ma, a pa re ceram caracteres estranhos 
no video. Soube que o editor Assem- 
bler para o TRS-80 em fita s6 serve pa- 
ra o TRS-80 Modelo /, e que o editor 
Assembler para o Modelo III sd 4 dis- 
ponivel em disquete e, portanto, seria 
impossivel utiliza-lo no CP-300 sem 
drive. Existe no mercado editor As- 
sembler em fita para o TRS-80 Mod. 
III? Se o monitor residente do CP-300 
for suficiente, como devo proceder? 
(Jamil Mat tar Valente, SC) 

MICRO SISTEMAS — Existem edito- 
res Assembler em fita para o TRS-80 
Mod. Ill, e podem ser perfeitamente 
utilizados no CP-300 ou CP-500. E 4 
relativamente ficil conseguir uma c6- 
pia com um colega ou mesmo atraves 
da Segao Classif icados de MS. 

O monitor residente permite que se 
introduza, execute, e transfira da me- 
mdria para a fita, e vice-versa, qualquer 
programa em linguagem de mciquina, 
desde que se disponha dos necessirios 
codigos-objeto (os hexadecimais que 
aparecem S esquerda de um programa 
assemblado). Os comandos necessirios 
podem ser encontrados nas p^ginas 
131 a 136 do manual do equipamento 
e sao, em resumo: 

S: substitui o conteudo do enderego 
fornecido; 

J: salta para o enderego especificado e 
inicia a execugao (por exemplo, se vo- 
ce introduziu o seu programa a partir 
do enderegamento 8000 usando o co- 
mando S, execute-o com J8000); 

T: transfere o programa da memdria 
para a fita; 

C: carrega o programa da fita para a 
memoria. 

Pergunta — Seria possivel carregar mais 
de um programa (como se fossem da- 
dos) utilizando o comando DLOAD? 
(Marcelo B. Silveira, SP). 

MICRO SISTEMAS - £ totalmente 
impossivel carregar mais de um progra- 
ma no micro com a utilizagao da fun- 
gao DLOAD. No entanto, essa opera- 
gao — chamada MERGE — 4 extrema- 
mente f^cil de ser estruturada por um 
programa em linguagem de maquina. 
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Um programa para os micros da I inha Sinclair que utiliza 
o metodo da decomposigao L U para a resolugao de sistemas lineares 



Decomposi^ao LU 
para sistemas lineares 

Alvaro Rodolfo De Fierro 



A maior parte dos modelos matematicos originados nas 
diversas areas do conhecimento, como por exemplo a 
engenharia ou a economia, levam, em algum estdgio, a 
necessidade de resolver um ou mais sistemas de equa- 
? 5 es algebricas lineares. Em vista disso, £ de maxima import an- 
cia dispor-se de uma rotina eficiente para este fim, entendendo 
por eficiencia o balan^o de tres fatores fundamentais: estabili- 
dade num^rica (minimo crescimento dos erros de saida corn- 
parados com os erros na entrada de dados), espa90 ocupado na 
memdria e tempo de resposta. 

Nosso problema consiste em resolver o sistema (expresso na 
forma matricial) Ax = b ( 1 ), onde: 

A ~ ( a i j ^ » J = 

£ uma matriz de ordem n nao singular e 

x = (x.) e b = (b.) 

l l 

sao vetores de ordem n. * 

0 metodo cldssico utilizado para resolver este sistema £ a 
Elimimgdo de Gauss, que produz uma matriz triangular supe- 
rior, eliminando seqiiencialmente os elementos abaixo da dia- 
gonal principal, resultando o seguinte algoritmo: 

para k = 1 ate n - 1 

para 1 = k+1 ate n ^ ^ ) 



seja m 



ik _ “lk (k) „ 

= se k r o 

a ( k ) kk 

k k 



para J = k ♦ 1 ate n 

. ( k + 1 ) (k) (k) 

5e)a a u -u • -ik a k J • 

K (k >1) ( k ) <k) 

b i - b i m lk \ 



Se aj^ = 0 , o algoritmo troca a linha k com alguma linha 
p,k < p < n, tal que a^ # 0; se nao houver nenhuma linha, a 
matriz £ singular e o sistema nao tern solu9§o unica. 0 passo 
seguinte £ resolver o sistema triangular definido pelos 



U t J ” * i J (1 J ’ 1 = 1 n) 



i = 1 , . . . , n 



ou seja, 



u i 1 X 1 + U 12 x 2 + ‘ ' * + u ’- x = b 



1 — ^ u . 

1 n n 



U 22 X 2^ + u 2n X n = «?2 

i 

i 

" u i x = b 
nn n n 



com o seguinte algoritmo de substitu^o regressiva: 



x = b 
n n 

para i = n- 1 ate 1 ( 4 ) 

n 

x. = (b. - ? ... . u.. x . ) / u . . 

l l J=i +1 lj J li 

sendo que, se u- = 0 para algum i, a matriz A £ singular. £ fdcil 
verificar que, se a^ + 0 para k = l,...,n, a matriz A £ exa- 
tamente o produto das matrizes (ver referencia bibliografica): 
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Empresa filiada a ASSESPRO 




ou seja, A = LU, e portanto o sistema ( 1 ) £ equivalente a 
LUx = b ou 




e o cdlculo da S0IU9S0 reduz-se ao calculo da solu9ao de dois 
sistemas triangulares como em ( 3 ). Tendo em conta que o 



numero de opera9oes (multiplica9oes/divis6es) para a Elimina- 
gao de Gauss £ da ordem de_^? aproximadamente e o numero 
de opera96es para resolver um sistema triangular por substitui- 
9ao gira em tomo de oJ , em termos computacionais fica mui- 
to mais economico — se for necessdrio resolver diferentes siste- 
mas com a mesma matriz — , usar a decomposi92o LU e resol- 
ver dois sistemas triangulares do que aplicar a Eliminagao de 
Gauss para o vetor b. Por outro lado, como L e U sao triangu- 
lares, podem ser armazenadas no lugar de A sem perde-la, jd 
que esta pode ser reconstruida atravds do produto. 

Vejamos um exemplo. Seja a matriz de 3 x 3 




a seqiiencia gerada pelo algoritmo proposto seria: 




L seria a matriz triangular abaixo da diagonal principal, com 
“uns” na diagonal, e U seria a matriz acima da diagonal prin- 
cipal com esta incluida. 

Se o vetor b for ( 4 , 9 , 5 )*, deveriamos entao resolver 





Que tal fazer um programa diferente 
com seu kj^computador? 



Para vooe que tem um microcomputador CP 500, 
Digitus, Naja ou qualquer outro da linha TRS 80, a Nasajon 
Sistemas esta oferecendo uma serie de programas que 
podem agilizar ainda mais as diversas areas de sua empresa. 

Marque uma visita e venha assistir a demonstra^ao 
de nossos mais de 50 programas para as areas de: 
Contabilidade, Folha de Pagamcnto, Controle de Estoque, 
Tesouraria, Mala Direta, Contas a Pagar/Receber, 

Crediario, Administragao de Im6veis, Controle de Custos, 
Arquivo de Processos, Administra^ao de Consultorios e 
outros. 

A Nasajon Sistemas tambem desenvolve qualquer 
tipo de software especi'f ico.de acordo com as necessidades 
de sua empresa, alem de oferecer assessoria complcta de 
implanta^ao, analise, treinamento e apoio. 

Venha ver como £ importante fazer um programa 
diferente para o seu comoutador. 



240.000 1 

360.000 

180.000 
180.000 

300.000 

360.000 j 

~^f 30 M 84 



^no/ojOA 



Av. Rio Branco, 45 grupo 1311 
Tel.:(021) 263-1241 - 233-0615 
CEP 20090 - Rio de Janeiro 



Presets validos 



Voce encontra esses e outros programas em nossos Revendedores Credenciados: 

Rio de Janeiro: Casa Garson: 252-9191 - Eldorado Computadores: 227-0791 - Bits e Bytes: 322-1920 - Microncws: 252-9420 
Salvador: Of ficina: 248-6666 r. 268 - Sysdata: 242-9394 — Pelotas - RS: Processa: (0532) 25-4741 




DECOMPOSigAO LU PARA SISTEMAS LINEARES 



Decomposigao LU 



8000 REM "LU+S" 

8010 REM LEITURA DA DIMENSAO N E 
DA MATRIZ A 
8020 DIM P (20) 

8030 DIM A (20 , 20) 

8040 PRINT "FORNECA A ORDEM DA M 
ATRIZsN" 

8050 INPUT N 

8060 PRINT "N=" ; N 

8070 PRINT "FORNECA A MATRIZ A P 

OR LINHA" 

8080 FOR 1=1 TO N 
8090 FOR J=1 TO N 
8100 INPUT A(I,J) 

8110 PRINT "A (";!;"» ";J;")="jA(I 

,J) 

8120 NEXT J 
8130 NEXT I 
8140 PAUSE 360 
8150 CLS 

8160 REM DECOMPOSICAO LU COM PIV 

OTEAMENTO PARCIAL 

8170 REM INICIALIZA O VETOR PERM 

UTACAO 

8180 FOR 1=1 TO N 
8190 LET P(I)=I 
8200 NEXT I 

8210 REM COMECA O CALCULO DE L E 
U 

8220 FOR K=1 TO N-l 
8230 REM CALCULA O PIVOT 
8240 LET MAX=0 
8250 FOR I=K TO N 



8260 LET AB=ABS (A(P(I),K)j 
8270 IF MAX>=AB THEN GOTO 8300 
8280 LET MAX=AB 
8290 LET KP=I 
8300 NEXT I 

8310 IF MAX=0 THEN GOTO 8440 
8320 LET KPP=P (K) 

8330 LET P(K)=P(KP) 

8340 LET P (KP) =KPP 

8350 FOR I=K+1 TO N 

8360 LET A ( P ( I ) , K ) =A ( P ( I ) , K ) /A ( P 

(K) ,K) 

8370 FOR J=K+1 TO N 

8380 LET A (P ( I ) , J) =A (P ( I) , J) -A (P 

(I) ,K) *A(P(K) ,J) 

8390 NEXT J 
8400 NEXT I 
8410 NEXT K 

8420 IF A (P (N) , N) =0 THEN GOTO 84 
40 

8430 GOTO 8460 

8440 PRINT "MATRIZ SINGULAR: PIV 
OT NULO; O SISTEMA NAO TEM SOLU 
CAO UNICA" 

8450 GOTO 8470 
8460 GOTO 8490 
8470 STOP 

8480 REM ROTINA DE SUBSTITUICAO 
8490 DIM B (20) 

8500 DIM X (20) 

8510 PRINT "FORNECA O VETOR B" 
8520 FOR 1=1 TO N 
8530 INPUT B (I) 



8540 PRINT "B ( " ; I ; " ) =" ; B (I) 

8550 NEXT I 
8560 PAUSE 360 
8570 CLS 

8580 REM SUBSTITUICAO PROGRESSlV 
A 

8590 LET X( 1) =B (P ( 1) ) 

8600 FOR 1=2 TO N 
8610 LET X ( I ) =B ( P ( I ) ) 

8620 FOR J=1 TO 1-1 
8630 LET X(I)=X(I)-A(P(I) , J) *X(J 
) 

8640 NEXT J 
8650 NEXT I 

8660 REM SUBSTITUICAO REGRESSIVA 
8670 LET X (N) =X (N) /A (P (N) ,N) 

8680 FOR L=2 TO N 

8690 LET I=N+1-L 

8700 LET S=0 

8710 FOR J=I+1 TO N 

8720 LET S=S+A(P (I) , J) *X (J) 

8730 NEXT J 

8740 LET X ( I) =X (I ) -S) /A (P ( I ) , I) 
8750 NEXT L 

8760 PRINT "SOLUCAO DE AX=B" 

8770 FOR J=1 TO N 

8780 PRINT ”X(";J;")=";X(J) 

8790 NEXT J 
8800 STOP 




GARANTA 
SUA MS 
TODO MES ! 



Se voce deseja assinar MICRO SISTEMAS, preencha o 
cupom abaixo (ou uma xerox, caso voce nao queira 
cortar a revista): 

nome 

empresa. 

profissao/cargo 

endereco para remessa 



cidade cep estado 

Assinatura anual 

□ Micro Sistemas Cr$ 20.000,00 

□ Inform^tica & Administrate CrS 20.000,00 

□ Micro Sistemas + Informitica & 

Administrate) Cr$ 36.000,00 



Preencha um cheque nominal d ATI Editora Ltda e envie 
para: 

Av. Presidente Wilson, 165/grupo- 1210, Centro, Rio de 
Janeiro, RJ, CEP 20030 - tels.: (021 ) 262-5259 
R. Oliveira Dias, 1 53, Jardim Paulista, Sao Paulo, SP, CEP 
01433 • tels.: (Oil) 853-7758, 881-5668 e 853-3800. 
Seu recibo seri enviado pelo correio. 



o que daria yj = 4, y 2 = 1 e y 3 = 2, resolvendo seguidamente 



< -x 2 4 3x 3 ’ ' 



donde a solu?ao de Ax = b sera x 3 = 1 , x 2 = 2 e Xj =3. 

Para garantir estabilidade na elimina95o e evitar o caso 
a kV = ca da > tera ?3o de (2) se faz trocando linhas (o que 
nao modifica a solucao do sistema) e escolhendo a linha com o 
maior valor de / a ( k ' pk /, k < n. Para ganhar tempo de com- 
puta^ao, no lugar de efetuar a troca, esta 6 guardada num vetor 
da memoria. 

Apresentamos a seguir uma descr^ao completa, em BASIC 
do ZX81 , do algoritmo proposto, o qual, com minimas modifi- 
ca^oes, pode ser implementado em qualquer um dos micros 
existentes no mercado. 

O programa esta dividido em duas partes: a primeira. at£ a 
instru 9 ao 8400, content a decompos^ao LU de A; a segunda 
parte, dada a decomposi 92 o da matriz, requer a entrada do ve- 
tor b como dado. Para realiza-la, usa-se a decomposi 9 §o da pri- 
meira parte, cuja informa 9 ao esta contida na matriz A. e o ve- 
tor p, que contdm as trocas de linhas. 
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CLAPPYLANCA 

OTILMTRON 

EEXFUCA: 



Quatro. Repetigao 
automatica de carac- 
teres. 

Cinco. Diagnostico 
de teste automatico 
ao ligar. 

venha conhecer o 
TI pessoalmente na 
Clappy ou solicite a 
visita de um Consultor 
Tecnico Clappy no 
seu escritorio. 

Alias, na Clappy 
voce encontra tuao o 
que precisa em 
microcomputadores, 
perifericos, suprimen- 
tos, softwares. Alem 
de cursos proprios de 
programagao e 
operagao, assistencia 
tecnica, implantagao 
e instalagao de siste- 
mas. E mais. 

Aplicativos 
comerciais: contabili- 
dade, controle de 
estoque, folha de 
pagamentos, contas a 
pagar e a receber. 

Aplicativos de 
apoio: planilha 
financeira processa- 
mento de dados, 
mala direta, caaastro 
e controle financeiro, 
graficos, etc. 

Seja por venda, 
seja por leasing, 
ninguem pode fazer 
um preco melhor do 
que a Clappy. 



TI.QUER unrtron 
DIZERTECLADOS 
INTEUGENTE. 



O TI e o mais novo 
microcomputador da 
Unitron. 

Ele tern um mi- 
croprocessador 6504 
e um teclado 
inteligente. Isto e, 



um teclado gerador 
de caracteres para a 
lingua portuguesa. 
Veia o que este 
teclado pode fazer : 
Um. rrogramagao 
de fungoes especiais 



em qualquer tecla. 

Dois. Redefinigao 
das posigoes da tecla 
pelo proprio usuario. 

Tres. Modo de 
operagao igual a 
maquma de escrever. 



loja e sobreloja. 

Tel.: (021)253-3395 
Centro: R. Sete de Setembro, 
88 -loja Q (galeria) 

Tel.: (021) 222-5517/222-5721 
Copacabana: Rua Pompeu 
Loureiro, 99. 

Tel.: (021)257-4398/236-7175 
Aberta diariamente das 
10 20 horas e aos 

sabados das 9 as 14 horas. 
Estacionamento proprio. 

Assistencia Tecnica : 
234-9929/234-1015 

Entregamos em todo 
Brasil pelo reembolso Varig. 
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Voce que tem varios amigos e contatos comerciais, nao arrisque\ Guard e 
tod os os telefones e enderegos no seu HP S 5 e consu/te-o sempre que quiser 



Endereco e telefone? 
Listel responde 



Louis Carlos Mello 



A ideia que motivou a elabora- 
te) deste programa foi a de 
conseguir processar informa- 
9 ao em cadeias de caracteres 
no micro HP-85. Como se sabe, este mi- 
cro se destina, principalmente, ao proces- 
samento de dados numericos, apresen- 
tando, por conseguinte, certaslimita^Ses 
quanto a manipula^ao de strings. Por is- 
so, e pelo fato de que este programa adap- 
ta-se facilmente a qualquer outro tipo 
de cria^ao de arquivos hao-numdricos, 
utilizamos como exemplo de utilitario 
um cademo de telefones - o Listel. 



LISTA TELEFONICA 



clifAP LETRA MOO IF LIMPAP 

ENTRAP HOME PONE ENDEF'C 



Figura 1 



Listel 



10 ' <c LOUIS C APLOS MELtO 
20 1 PIO OE JANEIRO 01 91/84 
30 ' APOUIVO TELEFONICO 
40 DI3P "DESE JA VER AS INSTPUCO 
ES CS/N3- 
50 Input vs 

60 IF VS=“S" THEN 70 ELSE 80 
70 GOSUB 2020 
30 L # = " " 

90 DIM A*C3Ol.B*C403.C*E103.Al* 
C303 B1*C403.C1*C103 PSt 6080 
J.R*C353.Kt200> ,Q*C54:i,S8SC4 
03 

100 CLEAR A QS="ENTRE NOME<30 CA 
P > • ENDEPECO f 40 CAP > E PONE 
<10 CAP >" 

110 GOTO 480 
120 CLEAR 
130 DISP Ql 

140 ASSIGN* 9 TO "REGIST* 

150 ASSIGN# 1 TO "AROTEL" 

if? r a t TO INF 

180 C=C-H 

190 INPUT AS.BS.CS 

200 IF At ="F I M" THEN 230 

210 PRINT# 1 .0 , At. Bt.Ct 

220 NEXT I 

230 L=C- 1 

240 • FECHAMENTO 

258 PRINT# 9.i , L 

260 ASSIGN# 1 TO * 

265 ASSIGN# 9 TO t 

270 PRINT “NOMES REGISTRAD0S=" ,l 

230 PRINT ft PRINT ft PRINT 

290 GOSUB 480 

300 CLEAR 8 OISP "ENDEPECO NAO E 
NC0NTRA00" 0 BEEP 0 WAIT 268 
0 0 GOTO 480 

318 CLEAF 6 DISP "QUAL 0 NOME QU 
E OESEJA VER" 



320 INPUT At 

330 ASSIGN# 1 TO "ARQTEL" 

340 C=0 

350 FOR 1=1 TO INF 
360 C=C*1 

378 PEAD# l.C . Alt Bt.Ct 
380 ON EPPOP G0 T O 720 
390 IF A 1 t=At THEN 420 
480 NEXT I 

418 i IMPPIMIP FICHA 
420 ASSIGN* 1 TO * 

430 PRINT "NOME ".At 
440 PFINT "ENDERECO " • B* 

450 PRINT "PONE ",C* 

460 PRINT ft PRINT 
470 GOTO 480 

480 CLEAP ft DISP " LISTA 

TElEFOn I f A ' 

490 ON KEY# 1. "ENTRAP" GOTO 120 
500 ON KEY# 2. "NOME* GOTO 310 
510 ON KEY# 3. "FONE" GOTO 610 
520 ON KEY* 4 . "ENDERC " GOTO 730 
530 ON KEY# 5 • "L ISTAP" GOTO 850 
548 ON KEY# 6 . "LETPA" GOTO 1140 
550 ON KEY# 7 . "MOO IF" GOTO 1370 
560 ON KEY# 8 , "L I MPAP" GOTO 1458 
570 KEY LABEL 
580 GOTO 580 
590 RETURN 
600 STOP 

610 CLEAP » DISP "ENTPE 0 NUMEPO 
TELEFONICO" 

620 INPUT Ct 

630 ASSIGN# 1 TO "ARQTEL" 

640 C=0 
658 C=C+l 

660 FOR 1=1 TO INF 
670 C=C+1 

680 REAO# l.C * At.Bt.Clt 
690 IF Clt=Ct THEN 420 
700 ON EPROP GOTO 830 
710 NEXT I 

720 CLEAP 8 OISP " NOME NAO ENC 
ONTPADO" 0 BEEP 0 WAIT 2000 
» GOTO 480 

730 CLEAP ft DISP "ENTRE 0 ENOERE 



CO" 

740 INPUT Bt 

750 ASSIGN# 1 TO "ARQTEL" 

760 C=0 

778 FOR 1=1 TO IN* 

780 C*C*1 

790 REAO# l.C i At.Blt.Ct 
800 ON EPPOP GOTO 300 
810 IF B1 *=Bt THEN 420 
e20 NEXT I 

830 CLEAP » OISP " NUMEPO NAO E 

ncontpaoo* e beep e wait 200 

0 8 GOTO 480 

840 IF L*#"" THEN B=2 8 GOTO 135 
0 

350 ASSIGN# 1 TO "ARQTEL" 

860 B= 1 
870 N=0 
880 C=0 

390 FOR J=1 TO INF STEP 30 
900 C = C-H 

910 REAO# B.C . At 

920 IF A*= " “ THEN 980 

930 ON EPPOP GOTO 980 

948 N=N+ 1 

958 PtCJ- J«-293=AI 

960 K < N > =N 

970 NEXT J 

980 ' OROEM ALFABETICA 
990 FOP K = 1 TO Nt 30-30 STEF 30 
1000 FOP J=K>30 TO M*30 STEP 30 
1010 IF PtCK . K+293 <=PtC J . J+293 T 
HEN 1050 

1820 P*=PtCK . k+293 

1830 PtCK. K«-293=PtCJ . J+29D 

1040 PtCJ. J+293=Pt 

1050 NEXT j 

1060 NEX T K 

1870 PRINT @ PRINT "LISTA EM 0P0 
EM ALFABETICA" 

1080 PRINT " 

1090 FOP 1=1 TO N*30 STEP 30 
1100 PRINT PtCI . 14293 
1 110 NEXT I 
1120 PRINT » PRINT 
1 1 30 GOTO 480 

1140 CLEAR ft OISP "QUAL A LETRA 
QUE DESEJA VER" 

1150 G=0 
1160 Z9t= “ * 

1170 INPUT Lt 

1180 ASSIGN# 2 TO "SCRETE" 

1190 FOR 1=1 TO 100 
1200 G=G+ 1 

1210 PRINT# 2.G . 29t 
1220 NEXT 1 

1230 ASSIGN# 1 TO "ARQTEL" 

1240 CLEAP 
1250 C=0 
1260 N=0 

1270 FOR 1=1 TO INF 
1280 C=C+1 
1290 READ# l.C i At 
1380 ON ERROR GOTO 1340 
1310 IF At= " " THEN 1340 
1320 IF L*=AtC 1.13 THEN N=NM 8 
PRINT# 2.N ; At 
1330 NEXT I 

1340 ASSIGN# 1 TO t 8 ASSIGN# 2 
TO * ft GOTO 840 
1350 ASSIGN# 2 TO "SCRETE" 

1360 GOTO 870 

1370 • MOO I F I CAP 

1380 GOTO 1530 

1390 ASSIGN# 9 TO "REGIST" 

1400 REAO* 9.1 * C 

1410 CLEAP ft DISP Qt 

1420 ASSIGN# 1 TO "ARQTEL" 

1430 GOTO 170 
1440 ' RETURN 

1450 CLEAP ft OISP "DIGITE <• <G M 
I NUSCULA >P/C0NF IP- MAR" 

1460 INPUT Q4t 

1470 IF Q4t="<>" THEN 1480 ELSE 4 
80 

1480 PURGE "ARQTEL" 8 PURGE "SCR 
ETE" 0 PURGE "REGIST" 

1490 CREATE * ARQTEL ". 200 . 89 
1500 CREATE "REGIST", 100, 10 
1510 CREATE "SCRETE" . 100. 35 
1520 GOTO 480 

1530 CLEAP » DISP " u 

MENU**" 

1540 DISP 

:550 OISP "1 ADICIONAR" 

1560 DISP "2 MANIPULAR" 

1570 DISP "ESCOLHA SUA OPCAO" 
1580 INPUT Y8 
1590 IF Y8= 1 THEN 1390 
1600 IF Y8*2 THEN 1610 
1610 CLEAR » OISP "MANIPULACAO S 
0 POOE SER FEITA COMO NO 
ME SE NAO SOUBER USE OUT 
RA ROT 1 NA " 



1620 DISP » DISP 

1630 DISP "QUAL 0 NOME QUE DESEJ 
A VEP“ 

1640 INPUT Alt 
1650 C=0 

1660 ASSIGN# 1 TO "ARQTEL" 

1670 FOP 1=1 TO INF 
1680 C=C*1 

1690 READ# 1-C i At. Bt.Ct 
1700 IF A 1 * = A* THEN 1740 
1710 ON ERROR GOTO 1730 
1720 NEXT I 

1730 ASSIGN# 1 TO * 8 GOTO 720 
1740 CLEAR 8 DISF "NOME " , At 
1750 DISP "END ".Bt 
1760 DISP "FONE • "iCt 
1778 OISP 8 DISP "OESEJA MUOAR U 
M DOS I T ENSCS/N3" 

1780 INPUT :<f« 

1790 IF X5t= "S" T hEN 1816 
1800 GOTO 480 

1810 DISP 0 OISP "NGME= 1 . END =2 
E F0NE=3" 

1820 DISP "QUAL VOCE OESEJA MUDA 
R" 

1830 INPUT X5 

1940 IF X5= 1 THEN X5t="N0ME" 

16*0 IF X5=2 THEN X5t=" ENDERECO* 
1T60 IF X5=3 THEN X5t="F0NE" 

1870 OISP 8 DISP "DUAL 0 NOVO ". 
X5t 

1880 INPUT S8t 
1890 IF X5= 1 THEN At»S8t 
1900 IF X5*2 THEN Bt=S8t 
1910 IF X5=3 THEN C*=S8t 
1920 CLEAP 8 DISP "NOME " , At 
1930 DISP "ENO " ; Bt 
1940 DISP "FONE ".Ct 
1950 OISP » OISP » OISP "ESTA IN 
FORMACAO ESTA CORRETA* 

1960 INPUT a5* 

1970 CLEAP 8 DISP "DESEJA MAIS N 
ANIPULACAO" 

1980 INPUT Y2t 

1990 IF Y2t="S" AND X5t="S* THEN 
PPINT# i,C , At, Bt.Ct e GO 
TO 2010 

2000 IF X5t="S" THEN PRINT# l.C 
» At ■ Bt • C# ft ASSIGN* 1 TO * 
» GOTO 430 

2010 CLEAP ft GOTO 1810 

2020 ' INSTRUCOES 

2030 CLEAP ft DISF "USUAFIO " 

2040 DISP "Este siste»a toi dese 
nvolvido visarido a tacili 
t ar • ao naxiao, “ 

2050 DISP "o seu eaereeo Observ 
acoes " 

2060 DISP 

2070 DISP "l)Difti*e 'FIN' eara t 
erairar as entradas ou adic 
oes ao arauivo, " 

2080 DISP 

2090 OISP "2>Nao se eode eliaina 
r of, Cairo do ar^uivo.ioeo 
nuua a»er»cao" 

2100 DISP "<uanio as inclusoes e 
as e<clu- s oes • " 

2110 IF V*="C" THEN 2150 
2120 DISP 

2130 DISP ‘APERTE VCONT 1 PARA CO 
NTINUAP" 

2140 PAUSE 
2150 DISP 

2160 OISP "3)Ha‘ somente 200 cam 
eos <eara instrucoes xuan 
to a sua aaelia-" 

2170 DISP "cao.vide manual de in 
st rucoes) » “ 

2180 DISP 

2190 DISP “4>Li»ites es*abe acid 
os Fara o tananho de cada 
l tern 30 carac-" 

2200 DISP "teres For noae-40 por 
endereco e 18 For teleton 

e , " 

2210 DISP 

2220 DISP "5'Sdeestoes deven* ser 
enviadas a Louis Carlos M 
e 1 1 o • Rua Vo lun- " 

2230 DISP "tarios da Patria 102' 
clO.Fone " 

2240 DISP "*.021) 246-9582 " 

2250 DISP ft OISP * 

Obr i eado" 

2260 PRiNT 8 PRINT 
2270 IF Vt="C" THEN CPT IS 1 ft P 
ETIJRN 

2288 WAIT 10000 

2290 DISP ft OISP * <PARA COPIAP P 
PESSIONE ",CHRS<67«-126>,">" 
2300 INPUT Vt 

23 1 A IF Vt="C" THEN CRT IS 2 ft G 
0T0 2020 ft GOTO 2320 
2320 RETURN 



Este sistema funciona como um catd- 
logo de nomes, endere 90 S e numeros, 
onde se pode procurar qualquer item do 
arquivo por qualquer das partes que o 
compoem. Assim, atraves das teclas de- 
finidas pelo usudrio (vide figura 1), ele 
pode acessar o arquivo central pelo no- 
me, endereco ou telefone. 

Pressionando-se a tecla especial 
LISTAR, por exemplo, todos os nomes 
incluidos no arquivo serao listados em 
ordem alfabetica, seja qual for a ordem 
em que os dados tenham sido introduzi- 
dos. 0 usudrio tambem podera pedir 
uma listagem por letra, ou seja, aper tan- 
do a tecla LETRA, o sistema pedira qual 
a letra desejada e prosseguira fazendo 
uma listagem em ordem alfabetica de to- 
dos os nomes do arquivo que come^am 
com aquela letra (esta opera^o, no en- 
tanto, podera demorar sensivelmente 
mais do que as outras). 

Para entrar dados pela primeira vez, 
pressione a tecla ENTRAR. Antes disso, 
porem, e necessario criar os arquivos, o 
que pode ser feito atraves do proprio sis- 
tema, digitando RUN 1490 e ENDLINE 
(nao se esque 9 a de digitar RUN depois 
para inicializar o programa). Agora, se 
voce quiser eliminar arquivos indeseja- 
veis, aperte a tecla LIMPAR, efetuando 
assim um PURGE nos arquivos exis- 
tentes (tres ao todo). Automaticamente 
serd lan 9 ado um CREATE, gerando no- 
vamente os arquivos indispensaveis ao 
funcionamento do programa. 

Para adicionar ou modificar um cam- 
po do arquivo central, deve-se pressionar 
a tecla MODIF, quando entao aparecera, 
conseqiientemente, um menu que pede 
ao usudrio para escolher entre as op 9 oes 
ADICIONAR ou MANIPULAR. MANI 
PULAR significa modificar um dos itens 
de um nome ja constante no arquivo; 
ADICIONAR significa juntar um novo 
nome ao arquivo existente. 

0 sistema e totalmcnte PROMPTED, 
solicitando a informa 9 ao necessaria, 
quando necessaria. Perguntas que devem 
ser respondidas com sim ou nao preci- 
sam apenas de um S ou N. Lembramos 
ainda que o numero maximo de entra- 
das e 200, o que pode ser modificado 
conforme a capacidade de seu equipa- 
mento. Este programa roda em um HP- 
85 em sua configura 9 ao bdsica, ocupan- 
do 13130 bytes. ■ 



Louis Carlos Mello estudou na Universidade 
de Nova York, EUA, especial irando se em Ma- 
temdtica. Atualmente 4 con suitor financeiro 
autdnomo , utilizando um HP-65 para cdlculos 
na 4rea em que atua. 
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O comando E 
e a rotina 



$KEY 



tecla 


valor hexa 


tecla valor hexa 


tecla valor hexa 


1 


FDF7 


K 


F7BF 


< > 


DEFB 


2 


FBF7 


L 


FBBF 


>■= 


DEDF 


3 


F7F7 


ENTER 


FDBF 


S 


EEDF 


4 


EFF7 


Z 


FBFE 


< 


F6DF 


5 


DFF7 


X 


F7FE 


) 


FADF 


6 


DFEF 


c 


EFFE 


// 


FCDF 


7 


EFEF 


V 


DFFE 


STOP 


FCFD 


8 


F7EF 


B 


DF7F 


LPRINT 


FAFD 


9 


FBEF 


N 


EF7F 


SLOW 


F6FD 


0 


FDEF 


M 


F77F 


FAST 


EEFD 


Q 


FDFB 


• 


FB7F 


LLIST 


DEFD 


U 


FBFB 


ESPAC0 


FD7F 


«« 


DEBF 


E 


F7FB 


EDIT 


FCF7 


- 


EEBF 


R 


EFFB 


AND 


FAF7 


♦ 


F6BF 


T 


DFFB 


THEN 


F6F7 


X 


FABF 


Y 


DFDF 


TO 


EEF7 


FUNCTION 


FCBF 


U 


EFDF 


seta E 


DEF7 


s 


FAFE 


I 


F7DF 


seta 6 


DEEF 


r 


F6FE 


0 


FBDF 


seta C 


EEEF 


? 


EEFE 


P 


FDDF 


set a D 


F6EF 


/ 


DEFE 


A 


FDFD 


GRAPHICS 


FAEF 


« 


DE7F 


S 


FBFD 


DELETE 


FCEF 


< 


EE7F 


D 


F7FD 


//// 


FCFB 


> 


F67F 


F 


EFFD 


OR 


FAFB 




FA7F 


G 


DFFO 


STEP 


F6FB 


L 


FC7F 


H 


DFBF 


< = 


EEFB 


J 


EFBF 


nenhuma tecla pressionada 


FFFF 







Figura 1 



E este mes iremos tratar de um 
dos mais uteis comandos do 
SGM: o comando E (cria linha 
REM). Aldm disso. veremos 
detalhadamente a rotina SKEY, que 6 
praticamente o corafSo do SGM. 

Para a digitado, utilizaremos o 
comando M que foi visto no m€s 
passado. Inicie os trabalhos 
digitando POKE 16389,120 e NEW 
(n2o esque^a o comando NEW) e 
logo ap6s carregue no micro o 
comando M. Quando terminar, a 
situa^So ser2 a seguinte: o topo da 
memdria conteri tudo o que foi 
digitado no m6s anterior (esta 
drea serd protegida atd mesmo do 
NEW) e a RAM normal conterd o 
programa BASIC utilizado para 
a gravaffo do SGM. 

Elimine as linhas 5 a 95, pois essa 
parte do programa nao serd mais 
utilizada. 0 restante (linhas 100 a 
150), usaremos novamente para a 
grava$do do que for digitado este 
mes (este, alias, serd o 
procedimento para os prdximos 
meses). 

Tudo pronto, digjte RAND USR 
31210 e entre no MICRO BUG. 

Deverd aparecer o nome no 
topo do video e, na parte 
inferior, o cursor. Digite M 78D3 
e estaremos posicionados bem no 
infcio da rotina $ KEY (nao 



serd necessdrio digitd-la, pois isso 
jd foi feito). 



A ROTINA SKEY 



Esta 6 a rotina de leitura do teclado, 
aquela que mantem a ordem e os 
bons costumes dentro do MICRO 



BUG (veja a listagem 1). O seu 
funcionamento e semelhante ao 
INPUT do BASIC, pordm ela nao 
espera a entrada de um dado 
completo e sim identifica e 
processa as teclas no exato 
momento em que sdo 
posicionadas. Aten?ao: nunca 



Ustagem 1 



rotina (KEY (leitura do teclado) 



78D3 


CD 


BB 


02 


CALL 02BB 


{Chama SCAN KEYBOARD. 


78D6 


7C 






LD A,H 


freinicia se nao houver tecla 


78D7 


FE 


FE 




CP FE 


press ou se for SHIFT. 


78D9 


30 


F8 




JR NC , 78D3 




78DB 


44 






LD B , H 


{identifica tecla pressionada 


78DC 


4D 






LD C , L 




78DD 


CD 


BD 


07 


CALL 07BD 




78E0 


7E 






LD A , ( HL > 




78E 1 


FE 


76 




CP 76 


;retorna se for ENTER. 


78E3 


C8 






RET Z 




78E4 


FE 


77 




CP 77 


iretorna se for DELETE. 


78E6 


C8 






RET Z 




78E7 


FE 


CO 




CP CO 


;executa (CLS. 


78E9 


28 


ID 




JR Z , 7908 




78E8 


FE 


74 




CP 74 


; execut a (GRAPHICS. 


78ED 


28 


24 




JR Z , 7913 




78EF 


FE 


DE 




CP DE 


;manipula MFLAG. 


78F 1 


D4 


96 


78 


CALL Z ,7896 




78F 4 


FE 


75 




CP 75 


jreset . 


78F6 


CA 


EE 


79 


JP Z , 79EE 




78F9 


00 


00 






•vago para mais um SHIFT. 


78FB 


00 


00 


00 






78FE 


00 


00 






{vago para mais um SHIFT. 


7900 


00 


00 


00 






7903 


CB 


77 




BIT 6 , A 


{retorna se for tecla valida. 


7905 


C8 






RET Z 




7906 


18 


CB 




JR 78D3 


ire i n i c i a (KEY . 


obs: i 


os uBuarios que possuirem 


iapressora podem fazer a 


seguinte 


a 1 terajao 


: 




78F9 


FE 


DD 




CP DD 


, ; ver if ica SHIFT T. 


78FB 


CC 


69 


08 


CALL Z , 0869 


•executa comando COPY. 



modifique essa rotina estando 
no MICRO BUG, pois pode 
haver perda de controle do 
sistema. Se voce quiser mudar 
algum valor ou parametro, 
fa?a-o com o programa em 
BASIC do mes passado. 

A mecanica de S KEY 6 
acionada por um CALL 78D3. A 
rotina esperard atd que uma 
tecla seja pressionada. Se for 
ENTER, DELET ou qualquer 
outra tecla no intervalo de “ a Z, 



SKEY devolverd o valor do 
cardter no acumulador (registrador A); 
caso contrdrio, o sistema executard 
alguma fun 9 ao SHIFT ou 
simplesmente ignorard a tecla. 

Vejamos como se processa, dentro de 
SKEY, o reconhecimento de uma 
tecla. A rotina 02BB e a SCAN 
KEYBOARD do sistema operacional. 
Quando ela i acionada, o sistema 
produz uma varredura nas linhas e 
colunas que compdem o 
chaveamento do teclado e retoma 



1 




Listagem 2 





rotina (CONTROL (manipula MFLAG ) 



7 896 


D6 


DE 




SUB DE 


7898 


47 






LD B,A 


7899 


OE 


01 




LD C,01 


789B 


28 


04 




JR Z , 78A1 


789D 


CB 


11 




RL C 


789F 


10 


FC 




D JNZ , 7890 


78A1 


3A 


26 


79 


LD A r < 7926 ) 


78A4 


A9 






XOR C 


78A5 


32 


26 


79 


LD (7926), A 


78A8 


3E 


FF 




LD A , FF 



;calcula faixa 0-7. 

{Salta se for bit 0. 

• c a 1 c u 1 a operador logico. 

; man i pul a MFLAG. 

jrepoe MFLAG. 

fseta acumulador e prossegue. 



com o valor da tecla pressionada no 
par HL (veja a figura 1 ). Esse valor 
pode, em alguns casos, ser usado para 
um reconhecimento, mas antes 
serd preciso decodificd-lo para que haja 
uma perfeita identifica^ao da tecla 
pressionada. 0 prdximo passo 6 
transferir o valor do par HL para o par 
BC e chamar a rotina 07BD, tambdm 
do sistema operacional do micro. 

O resultado dessas operafSes serd o 
acumulador (registrador A) contendo 
o valor do c6digo da tecla em questSo. 
Trafando um paralelo com o BASIC, 
seria algo semelhante a LET A = 

CODE INKEYS. 

As fumades SHIFT operadas por 
SKEY sio estabelecidas de duas 
formas: as vinculadas a MFLAG e as 
independentes, que podem ou nao 
estar associadas a SFLAG. A MFLAG 
6 a mais importante varidvel do sistema 




Figura 2 



e cada um de seus 8 bits represents 
um estado. Seu endere 90 no SGM 6 
7926. 

O controle de MFLAG 6 feito pela 
rotina SCONTROL (listagem 2) que 
funciona da seguinte forma: a chamada 
CALL Z, 7896 pressupSe o acumulador 
com algum valor SHIFT. Na prdtica, 
serao interpretadas apenas as teclas 
THEN, TO, STEP, LPRINT, LLIST, 
STOP, SLOW e FAST. O cddigo da tecla 
pressionada 6 ajustado para a faixa 0-7 
a fun de se determinar o bit de MFLAG 
correspondente. Feito isso, esse bit 6 
chaveado pela operafao 16gica XOR, ou 
seja, se o bit de MFLAG for 1 , ele ser2 
ressetado (= 0); se for 0, seri setado 
(= 1). Acompanhe esse procedimento 
na figura 2, onde, por exemplo, 

MFLAG tern um valor qualquer e a 
tecla pressionada 6 SHIFT S ou 
LPRINT. Nesse exemplo, estarfamos 
mudando a velocidade de impressao 
do comando M (bit 3) sem, no entanto, 
alterar os outros bits de MFLAG. 

Os outros tipos de SHIFT sfio de aflo 
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O COMAN DO E E A BOTINA $KEY 



Listagem 3 



7948 


15 


7C 






def 7C15 


7C15 


CD 


F7 


7B 




CALL 7BF7 


7C18 


CD 


23 


OF 




CALL 0F23 


7C1B 


2A 


31 


79 




LD HL r < 7931 ) 


7C1E 


EB 








EX DE ,HL 


7C1F 


21 


OF 


27 




LD HL , 270F 


7C22 


A7 








AND A 


7C23 


ED 


52 






SBC HL , DE 


7C25 


30 


15 






JR NC , 7C3C 


7C27 


CD 


Cl 


78 




CALL 78C1 


7C2A 


31 


2E 


33 


2D 






26 


00 


2E 


31 






2A 


2C 


26 


B 1 




7C36 


CD 


2B 


OF 




CALL 0F2B 


7C39 


C3 


4A 


7A 




JP 7A4A 


7C3C 


EB 








EX DE,HL 


7C3D 


CD 


D8 


09 




CALL 09D8 


7C40 


20 


14 






JR NZ , 7C56 


7C42 


CD 


Cl 


78 




CALL 7BC1 


7C45 


31 


2E 


33 


2D 






26 


00 


2A 


3D 






2E 


38 


39 


2A 






33 


39 


AA 






7C54 


18 


E0 






JR 7C36 


7C56 


E5 








PUSH HL 


7C57 


2A 


33 


79 




LD HL , < 7933 ) 


7C5A 


01 


06 


00 




LD BC , 0006 


7C5D 


09 








ADD HL , BC 


7C5E 


E5 








PUSH HL 


7C5F 


Cl 








POP BC 


7C60 


El 








POP HL 


7C61 


E5 








PUSH HL 


7C62 


CD 


9E 


09 




CALL 099E 


7C65 


El 








POP HL 


7C66 


ED 


5B 


31 


79 


LD DE , < 7931 ) 


7C6A 


72 








LD <HL ) , D 


7CAB 


23 








INC HL 


7C6C 


73 








LD < HL ) , E 


7C6D 


ED 


4B 


33 


79 


LD BC , < 7933 ) 


7C7 i 


03 








INC BC 


7C72 


03 








INC BC 


7C73 


23 








INC HL 


7C74 


71 








LD < HL ) , C 


7C75 


23 








INC HL 


7C76 


70 








LD (HL ) , B 


7C77 


23 








INC HL 


7C78 


36 


EA 






LD <HL) ,EA 


7C7A 


3A 


35 


79 




LD A, (7935) 


7C7D 


23 








INC HL 


7C7E 


77 








LD (HL) ,A 


7C7F 


E5 








PUSH HL 


7C80 


01 








POP DE 


7C8i 


13 








INC DE 


7C82 


0B 








DEC BC 


7C83 


0B 








DEC BC 


7C84 


0B 








DEC BC 


7C85 


CB 


78 






BIT 7 , B 


7C87 


03 








INC BC 


7C88 


20 


02 






JR NZ , 7C8C 


7C8A 


ED 


B0 






LDIR 


7C8C 


36 


76 






LD (HL) ,76 


7C8E 


2A 


10 


40 




LD HL, (4010) 


7C91 


01 


19 


03 




LD BC , 0319 


7C94 


A7 








AND A 


7C95 


ED 


42 






SBC HL , BC 


7C97 


22 


OC 


40 




LD ( 400C ) , HL 


7C9A 


18 


9A 






JR 7C36 



jcomando E 
•chama 10RG. 
pFAST. 

•numero da linha Basic, 
pverifica se a linha e' >9999. 



piraprime mensagem 
LINHA ILEGAL. 



I SLOW, 
preset . 

•identifica endereco da linha 
dentro do programa Basic. 

pimprime mensagem 
LINHA EXISTENTE. 



preset . 

pguantidade de caracteres +6. 



pexpande o programa para 
i nser i r 1 i nha REM. 



pcoloca o numero da linha no 
programa Basic. 



pcoloca guantidade de 
elementos da linha. 



pcoloca codigo REM. 

pcoloca os caracteres da 
1 inha REM. 



pcoloca ENTER, 
pcalcula novo D-FILE. 



preset . 



direta, ou seja, sao executados assim 
que a tecla correspondente for 
pressionada. Dessa forma SHIFT Q 
causa um CLS no video e SHIFT i 
produz um RESET geral do sistema, 
cancelando qualquer opera9ao em 
andamento. SHIFT 9, que 6 o modo 
GRAPHICS do cursor, nao produz 
a^ao direta, pordm manipula SFLAG 
com uma operapfo XOR semelhante 
a vista anteriormente. 



O COMANDO E 



Este 6, sem duvida, o comando mais 
bem vindo para todos os usudrios que 
digitam programas em linguagem de 
maquina, pois ele cria linhas REM com 
qualquer quantidade de caracteres, com 
qualquer tipo de cardter e em qualquer 
lugar de um programa BASIC. Parece 
ser uma operafdo complexa, mas na 
verdade ndo 6. Devemos partir do 
principio de que, a toda hora, o micro 
estd criando linhas; resta entdo saber 
onde, no sistema operacional, ele faz 
isso e, literalmente, ir de carona nesse 
procedimento. 

A listagem 3 apresenta o sistema todo do 
comando E e a listagem 4 a rotina 
SORG. Sao essas as unicas listagens a 
serem digitadas este mes, lembrando 
sempre que qualquer implementa9ao 
deve ser feita com uma correspondente 
altera^o da Tabela de Defmiqdo dos 
Comandos. 

Vejamos, em primeiro lugar, como 
funciona a rotina SORG, pois ela 6 
utilizada por quase todos os comandos 
do SGM. Sua fun?ao 6 organ izar a 
entrada de pardmetros via teclado. Toda 
vez que ela for chamada, haverd o 
cdlculo de um valor a partir da posi9ao 
de video AT21,3. Este serd o 
primeiro parametro, o qual serd 
arquivado nos endere90S 7931/7932. 

A seguir, o que for encontrado ap6s 
a vfrgula serd calculado como 
segundo pardmetro e arquivado nos 
endere90S 7933/7934 (se ndo houver 
nenhum dfgito, o valor zero serd 
assumido). Por ultimo, apds a pr6xima 
vfrguia, o digito encontrado serd 
interpretado como um cardter e 
arquivado no endere90 7935. Feito isso, 
SORG retoma ao ponto em que 
foi chamada. 

0 comando E inicia sua opera^ao 
chamando a rotina SORG para a 
organizafao de seus pardmetros, ou 
seja: NUMERO DA LINHA REM, 
QUANTIDADE DE CARACTERES, 
CARATER. A virgula funciona como 
delimitador de campo; assim, o 
comando E 1 , 4, * resultard em 

1 REM * * * * . Se o cardter for omitido 
o comando assumird um espa90 como 



^ 1 




Listagem 4 





rotina 50RG (organiza parametros dos comandos) 



7BF7 


AF 








XOR A 


pimprime espaco apos comando. 


7BF8 


D7 








RST 10 


7BF9 


CD 


52 


7A 




CALL 7A52 


pchama ^CURSOR. 


7BFC 


B7 








OR A 


preset se nao houver valor. 


7BFD 


CA 


4A 


7A 




JP Z , 7A4A 




7C00 


CD 


9E 


7A 




CALL 7A9E 


pcalcula primeiro valor. 


7C03 


ED 


53 


31 


79 


LD (7931) ,DE 


7C07 


23 








INC HL 


pcalcula segundo valor. 


7C08 


CD 


A7 


7A 




CALL 7AA7 


7C0B 


ED 


53 


33 


79 


LD (7933), DE 




7C0F 


23 








INC HL 


pidentifica 0 caracter. 


7C10 


7E 








LD A, (HL) 




7C1 1 


32 


35 


79 




LD (7935), A 




7C1 4 


C9 








RET 


pretorna . 



tal (valor de default = 0). Note que este 
comando opera em FAST ap6s essa 
fase, pois a mudan9a do arquivo de 
imagem durante a expansdo do 
programa BASIC 6 crftica, e se fosse 
feita em SLOW o sistema perderia o 
controle do sinal de video, acarretando 
um RESET geral. 

A prdxima rotina do sistema 
operacional a ser utilizada 6 a que 
inicia no endere90 09D8. Ela 



identifica o endere90 onde estd a linha 
cujo numero consta no par HL. Quando 
retomar, HL conterd o endere9o da 
linha (caso em que o Zero flag estard 
setado: Z = 1) ou o endere9o da linha 
imediatamente superior (Z = 0). Desse 
modo, fica fdcil saber se jd existe alguma 
linha com a numerafdo desejada. 

0 prdximo passo 6 expan dir o programa 
BASIC e, conseqiientemente, o 
arquivo de imagem e a drea de 



varidveis. Isso 6 feito pela rotina 099E, 
lembrando que, d quantidade solicitada 
pelo usudrio, deverdo ser acrescidos 
mais 6 bytes: numero da linha (2), 
quantidade de elementos (2), eddigo da 
instru9§o REM (1) e o ENTER do 
final (1). Para terminar, o comando faz 
a grava9do dos caracteres e retoma d 
velocidade SLOW. 

Finalizando, vamos fazer uma 
gravaffo do MICRO BUG para 
podermos continual no proximo mes. 
Para tanto, use o programa BASIC do 
mes anterior (apenas as linhas 100 a 
1 50) e digite RUN. Se voc£ estiver 
encontrando alguma dificuldade na 
compreensdo ou implementa9ao de 
algum comando, escreva-nos e 
indique na carta “Projeto MICRO 
BUG”. Para agilizar a resposta, 
mande tambdm um envelope endere9ado 
e selado. Atd a prdxima. ■ 



Este projeto vem sendo desenvolvido pels 
equipe do CPD de MICRO S I STEM AS, sob a 
coordenaqao de Renato Degiovani. 



PUBLICAQOES PARA C0MPUTAD0RES 

Sinclair - 

SlNi | AiH I MSIH » ;i| *.<N( ( AlH s( A«i m | TL) 



• APLICA90ES SERIAS PARA TK 85 E CP 200 

3? EdufSo. atuaiizada e com nova compasiglo grlfica CRS 9.000 

Quern t Sinclair? - Convertendo outros Basics - Contando os Bytes - F.conomi- 
zando Membria - Fluxogramas - Top Down - Erros da ROM - Conhecendo a Im- 
pressora - Chaining Programas - Sub-rotinas em Cassette - Folha de Pagamento — 
Balance le - Corregio Monetiria do Imobilizado - Das ContribuigOes do IAPAS — 
Conlas a Receber - Cadastro de Clientes - Conta Banciria - CorregSo de Provas - 
Processador de Tex las - Estatistica - Cuslos - Orgamcnto Domdstico - Ram To- 
per e Data File em C 6 digo - etc. 

• 45 PROGRAMAS PRONTOS PARA RODAR EM TK 82C E NE Z800 

8* EdigJo. reimpirssa CRS 5.500 

Arquivos - Estoque - Plano Con tibil - Folha de Pagamento - Agenda Telefonica 
Caga ao Pato - Tnlha - Jogo da Velha - Forca - Dado - Tabelas - Tabuada - 
Converslo de Coordenadas — Media - ProgressSo - Tabela Price - Fibonacci - De- 
p reci 39 30 - Renumerador de linhas em Cbdigo - etc . . . 



• 30 JOGOSTARA TK 82C E CP 200 

3? Edi^So CRS 6.000 

Dam as — Labirinto — Enterprise — Golfe — Velha — Visita ao Castelo Cassino — 
Roleta Russa - Corrida de Cavalos - Vinte e Um - Cubo Mlgico - Senha - Banco 
Imobililrio — Forca — Dados - Invasores — etc. 

PROGRAMAS NO CODIGO DA MAQUINA 
InversSo de V ideo - Som por Software - Labirinto - Destrava Soft 

• CODIGO DE MAQUINA PARA TK E CP 200 

1 • Edifio CRS 9 000 

Numeras Binirios e Hexadecimals - Arquitetura do Z80 - Editando em Cbdigo - 
Programa para Edigio - As Instnigfes do Z80 em Exemplos Sub-rotinas da ROM - 
A ROM de 8 K - Dicionino das Inslrugbes — Hex X Mnembnicos - Rex X Deci- 
mal - Incluindo os Programas Scroll - Save Display no Ram Top - Contadores de 
Pom os ou Tempo - Datafile - Renumber - Labirinto — som por Software - Mi- 
cron Pac - Bombardeio etc. . . 




Despachos para looos os Estados mod-ante Ordem de Pagamento ou Cheque Nominal 

MICRON ELETRON/CA COM. II\ID. LTDA. Av. Soo Jooo. 74 - Tel. [0123) 22-4194 - cep 12.200 - S. J. Compos-SP 

CONSUME *iOSSa CE EM CASSE^E 
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Numeros aleatorios 



Na Sec5o Cartas de MS n9 25, o leitor Decio Decaro nos pedia um artigo para gerar numeros aleatorios 
na sua HP-41C. Em resposta ao seu pedido, diversos leitores nos enviaram suas formulas e programas 
para ajudar a resolver o problema. Embora tenhamos remetido todas as colaborapoes que nos chegaram 
para o Decio, por uma questao de espapo selecionamos apenas uma para publicaqao. Queremos, no 
entanto, deixar aqui registrado os nossos agradecimentos - e os do Decio tambem, que inclusive ja 
nos escreveu agradecendo a todos pela grande ajuda - aos leitores que mandaram suas colaboracoes. 



Paulo Alfredo Lucena Borges-RS 



O ponto de partida do gerador de numeros aleatdrios 
e a formula que vai gerar estes numeros (e possivel 
que algum purista diga que. pelo fato de se usarem 
formulas, os numeros deixam de ser aleatorios, mas 
isto n<To vem ao caso agora). 

0 livro de “Aplica^es” da HP-4 1C (pag. 26) traz a seguinte 
formula: 

r = FRAC(9821 x r + 0,211327) 

n ♦ 1 n 

Onde r n ea semente do numero e r n +j 6 o numero aleatdrio 
gerado. Atraves do manual de uma antiga calculadora Dismac, 
tem-se conhecimento de outra fdrmula: 

, 5 

r = FRAC( tt + r ) 

n+ 1 " 

Todas as duas sSo eficientes, por6m a do livro de ‘Aplica- 
9 < 5 es” “passa pelo teste espectral (Kuth, V. 2§ 3.4) e, por isso, 
seus parametros satisfazem o Teorema A (pagina 15 do livro 
“Aplica^es”), e gera um milhffo de numeros aleatdrios distin- 
tosentre 0 e 1 (...)”. 

Sem duvida, existem outras formulas que tambdm podem 
ser utilizadas, e fica a crit^rio do usuario escolher qual a que 
melhor lhe conv^m. Ap 6 s esta escolha, o proximo passo e a 
implementa 9 So de uma rotina para gerar os numeros aleat 6 - 
rios num determinado intervalo. Uma das possiveis solu 96 es 
para gerar numeros aleatOrios estd no exemplo apresentado na 
figura 1 . 

A execu 9 So, na primeira vez em que se usar este metodo, e 
feita da seguinte forma: 

1) introduzir a semente em STO 00 (qualquer numero entre 
0e 1); 

2) introduzir o limite inferior (N i ) em STO 01 ; 

3) introduzir o limite superior (N 2 ) em STO 02 (*); 

4) introduzir 0 fator de arredondamento em STO 03?; 

5) XEQ 1 ALE A (**). 

E nas vezes seguintes, n So 6 mais necessSrio introduzir a 
semente para executar o programa. Quanto aos demais dados, 
so deverao ser reintroduzidos se forem modificados. 
f*) Para garantir que o limite superior do intervalo tenha 
igual probabilidade de ocorrencia, 6 conveniente usar N 2 + 
1 em STO 02, ao inves de N 2 simplesmente. 

(**) Se o uso da rotina for frequente, deve-se atribui-la a uma 
das teclas (modo USER). 




Figura 1 
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Com este programa para a I inha TRS-80 voce podera obter, de forma rapida eprecisa, 
uma analise da situagao economico-financeira de qualquer empresa 



Programe o balan^o 
de sua empresa 

Dorley de Jesus Godarth 



E ste programa foi desenvolvido 
para equipamentos compativeis 
com o TRS-80 modelos I e III e 
tern por objetivo estabelecer um 
modelo de andlise economico-financeira 
de acordo com os seguintes critdrios: 
• os parametros de analise s5o equani- 
mes para todas as empresas; 

• a an41ise pode ser aproveitada para 
qualquer setor ou dimensSo de ativida- 
de; 

• o comportamento economico-finan- 
ceiro das empresas e' analisado com ba- 
se nos tres ultimos anos. 

0 programa examina o comporta- 
mento da situaijjlo estdtica patrimonial 
(balan90 patrimonial) e o comporta- 
mento da dinamica patrimonial (de- 
monstrative de lucros e perdas) das em- 
presas nos ultimos tres exercicios. Os 
parametros que dSo subsidios para esta 
analise sao os Quocientes Patrimoniais e 
os Quocientes de Variates Patrimoniais. 
Observa^o: caso a empresa n5o possua 
tres balamjos, deve-se atribuir para os 
dados relativos aos anos em que nSo te- 
nha balan^o o valor 1 . 

Os Quocientes Patrimoniais sSo cal- 
culados com relagffo a situa9ao estatica 
do patrimonio. Estes quocientes possibi- 
litam interpreta<;5es sobre as aplica^es 
de capital e sua origem (capitais pr6- 
prios e de terceiros). Os Quocientes de 
Varia96es, por sua vez, sao calculados 
com rela9^o a situa^o dinamica do pa- 
trimonio, fomecendo importantes infor- 
ma9des sobre a circula9ao de capitais e 
sua rentabilidade. 




QUOCIENTES PATRIMONIAIS 



1 - Participate) de terceiros 

Este quociente e' representado pela 
compara92o entre o capital prdprio e a 
soma do exigivel circulante com o exi- 
givel a longo prazo. Esta compara9fo e 
importante para fins de andlise, pois evi- 
dencia se os capitais de terceiros envol- 
vidos na empresa superam ou n5o os ca- 
pitais prdprips. 

Quando o quociente for menor que a 
unidade, estd caracterizado que a em- 
presa utiliza mais recursos financeiros de 
terceiros do que recursos prdprios (esta 
situa9§o pode representar uma dificil 
solvencia). 

Capital Proprio 

PI = 

Passivo Real 

2 - Relagao patrimonial global 

£ o quociente obtido atravds da com- 
para9fo entre o ativo real e o passivo 
real, revelando a propo^So global entre 
os recursos ativos e as exigibilidades 
reais para com terceiros. 

Ativo Rea 1 

PT = 

Passivo Real 

3 — Grau de saturagao fmanceira 

Considera os debitos de financia- 
mentos (longo prazo) pelo capital pr6- 
prio, denotando ate que ponto houve 
comprometimento do capital prdprio 
atual com dividas contraidas a longo 
prazo. Atraves deste quociente, pode- 
mos avaliar a poh'tica de investimento 
que a empresa adota. 

Exigivel a 
longo Prazo 

GSP = 

Capi ta 1 
Proprio 

4 - Liquidez geral 

£ o quociente obtido pelo agrupa- 
mento do ativo circulante com o realizd- 
vel a longo prazo, em confronto com o 
passivo circulante e o passivo a longo 
prazo. Este quociente revela a capacida- 
de da empresa em saldar as suas obriga- 
95 es a curto e a longo prazo, fazendo 
uso dos recursos financeiros disponiveis 
e venciveis para o mesmo periodo. 

Ativo Realizavel 

Circulante + Longo Prazo 

LC = 

Passivo Exigivel 

Circulante + Longo Prazo 



5 — Liquidez seca 

A liquidez seca e representada pela 
compara9§o do disponivel mais os di- 
reitos realizdveis a curto prazo. Atraves 
deste quociente conhecemos a situa9ao 
de solvabilidade da empresa face 2s suas 
obriga95es, depois de recebidos os cre'- 
ditos. 

Convem salientar que, para o cdlculo 
deste quociente, no realizavel a curto 
prazo nSo 6 considerado o estoque. Em- 
bora fa9a parte desta conta, nao hd data 
certa de realiza95o, pois estamos consi- 
derando apenas os direitos realizdveis a 
curto prazo. 

Ativo Cir- 
culante - Estoques 

LS = 

Passivo Circulante 

6 - Liquidez corrente 

A compara9ffo entre o ativo circulan- 
te e o passivo circulante nos fornece o 
quociente de liquidez corrente. Este 
quociente representa a capacidade de so- 
lu9§o de compromissos venciveis dentro 
de curto prazo. 



Ativo Circulante 

LC = 

Passivo Circulante 



7 — Grau de endividamento 

£ o confronto entre as exigibilidades 
e o patrimonio h'quido, evidenciando a 
responsabilidade deste com os compro- 
missos assumidos a longo e a curto 
prazo. 

Passivo Real 

GE = 

Patrimonio 
L I qu ido 



QUOCIENTES DE 
VARIANCES PATRIMONIAIS 



1 - Rotagao do capital proprio 

Esta rota92o e representada pela re- 
13950 entre a receita operacional e o ca- 
pital prdprio. Cada vez que a receita 
operacional atinge o valor do capital 
prdprio, significa que ele foi movimen- 
tado uma vez. O quociente da receita 
operacional pelo capital prdprio indicard 
quar.tas vezes este foi movimentado no 
exercicio. 

A rota95o do capital prdprio e de 
grande importancia, uma vez que do nu- 
mero de rota9<5es depende o resultado 
economico final. 



Recei ta 
Operacional 

RCP = 

Capital 

Proprio 

2 - Rentabilidade do patrimonio h'quido 
Trata-se do quociente que revela a 

rela95o existente entre o lucro h'quido e 
o patrimonio h'quido aplicado na em- 
presa. 

Lucro Liquido 

RPL 

Patrimonio 

Liquido 

3 - Rentabilidade de faturamento 

£ a rela95o existente entre o lucro h'- 
quido e a receita operacional da empre- 
sa. Este quociente revela a eficiencia da 
empresa em obter de suas atividades, sua 
margem de ganho sobre a receita. 

Lucro Liquido 

RF = 

Receita 

Operacional 



consideraqQes 



Para a andlise de balan90 pode-se uti- 
lizar um grande numero de indices. Isto 
nos dd uma margem maior de escolha, 
ou seja, podemos utilizar parametros 
com pouca ou nenhuma importancia 
conceitual, mas que apresentam situa- 
9do favordvel, e preterir outros que, ape- 
sar de importantes, sao desfavordveis. 

Partindo desta premissa, analisaremos 
a situa9fo economico-financeira das em- 
presas atraves dos dez quocientes jd 
identificados, mais os que normalmente 
sSo aplicados em uma andlise. 

Os dez quocientes nos d5o subsidios 
suficientemente abrangentes para poder- 
mos avaliar o equilibrio economico-fi- 
nanceiro das empresas. Assim, podemos 
conhecer a liquidez da empresa a curto 
e a longo prazo; a propor95o de recursos 
pr6prios aplicados; a participa9ao de ca- 
pitais de terceiros e a rota9§o que se 
obtem desses recursos; o comprometi- 
mento de seu capital prdprio; e o patri- 
monio h'quido com as dividas assumi- 
das. 

De posse da situa9So estatica patri- 
monial, situa9§o dinamica patrimonial e 
dos quocientes calculados com base nos 
tres dltimos balan90S, o analista poderd, 
dentro de margens seguras oferecidas pe- 
los subsidios que acabamos de ver, ava- 
liar o desempenho economico-financeiro 
da empresa nos ultimos anos, e ainda. na 
avalia9So final, dependendo do desem- 



60 



MICRO SISTEMAS, Junho/84 



MICRO SISTEMAS, Junho/84 



61 




PROGRAME O BALANQO DE SUA EMPRESA 



EMPRESA: E Q SUCESSO DE EMPRESA LTDA. 
RAMO : INDUSTRIA E COMERCIO 



ANALISE ECONOMICA-FINANCE IRA 



OTIVO 


1981 


1982 


1983 


DISPONIVEL 


500000 


2000000 


9000000 


RERL CURTO PRAZO 


60000000 


85000000 


200000000 


REAL LONGO PRAZO 


1300000 


1000000 


2000000 


IMOBILIZACOES 

PASIVO 


20000000 


30000000 


70000000 


CAPITAL SOCIAL 


24000000 


35000000 


45000000 


NAO EXIGIVEL 


25000000 


40000000 


80000000 


EXIG CURTO PRAZO 


35000000 


80000000 


150000000 


EXIG LONGO PRAZO 


10000000 


5000000 


60000000 


ATIVO REAL 


81800000 


118000000 


281000000 


PASSIVO REAL 


45000000 


85000000 


210000000 


PATRIM LIQUIDO 


36800000 


33000000 


71000000 


PARTIC TERCEIROS 


0.56 


0.47 


0.38 


REL PATRIM GLOBAL 


1.82 


1.39 


1.34 


GRAU SATUR FINANC 


0.40 


0.13 


0.75 


LIQIUIDEZ SECA 


1.67 


1.05 


1.37 


LIQUIDEZ GERAL 


1.37 


1.04 


1.00 


LIQUIDEZ CORRENTE 


1.73 


1.09 


1.39 


GRAU DE ENDIVIDAM 


1.22 


2.58 


2.96 


RENDA OPERACIONAL 


45000000 


130000000 


300000000 


LUCRO BRUTO 


20000000 


45000000 


100000000 


LUCRO OPERACIONAL 


9000000 


7000000 


20000000 


LUCRO LIQUIDO 


4000000 


2000000 


15000000 


ROTAC CAPITAL PROP 


1.80 


3.25 


3.75 


RENTAB PATRIM LIQ 


0.11 


0.06 


0.21 


RENTAB FATURAMENTO 


0.09 


0.02 


0.05 



ESTADO GERRL ...BOM ...MEDIO ...REGULAR 



PRRECER: 



Figura 1 



penho da empresa, qualificd-la em um 
desses tres conceitos: 

• BOM 

• MEDIO 

• REGULAR 

Como exemplo de aplica^So, supo- 
nhamos que uma empresa queira cadas- 
trar um fomecedor. Alem de outros pro- 
cedimentos, pode-se efetuar uma analise 
de balan^os sobre os tres ultimos exer- 
cicios para avaliar a situagffo economico- 
financeira deste fornecedor. 

A andlise pode ser feita na tela ou vir 
impressa. Caso o usudrio adote a primei- 
ra op<^o, ap6s a entrada dos dados soli- 
citados, serdo mostrados na tela do mi- 
cro os Quocientes Patrimoniais e os 
Quocientes de Variances Patrimoniais jd 
descritos anteriormente. Na segunda op- 
950 , o programa fomecerd uma andlise 
impressa, com campos para qualificar a 
empresa como boa, media ou regular e 
espatjo para se dar o parecer sobre o for- 
necedor (veja figura 1). 

Observa^So: convem salientar o por- 
que do mdice de imobilizasdo ndo ter 
sido incluido no modelo. A exclusdo de- 
ve-se ao fato de que procurou-se elabo- 
rar um modelo de andlise que pudesse 
ter aplica 9 ffo em qualquer setor da eco- 
nomia no qua! as empresas estdo integra- 
das. 0 mdice de imobilizatjdo e impor- 
tante para o setor industrial e de trans- 
forma^do, sendo, no entanto, de pouca 
ou nenhuma importdncia para o setor de 
presta^do de servitpos. Acrescentando es- 
te parametro, estariamos prejudicando a 
universalidade do modelo, uma de suas 
principal caracteristicas. 



Dorley de Jesus Godarth 6 formado em Ad- 
ministrafSo de Empresas pela Faculdade Ca- 
tdlica de Administra^So e Economia, e traba- 
lha, desde 1978, na TELEPAR — Telecomu- 
nicaqdes do Parand S.A., Curitiba, PR. 



Seqiiencia 
de entrada 
de dados 
no programa 



a) Razdo social da empresa; 

b) Tipo de atividade; 

c) Anos a serem analisados; 

d) Introdu 9 <fo dos valores das seguintes 
contas para cada ano: 

1) Disponivel 

2) Realizavel curto prazo 

3) Realizdvel longo prazo 

4) Imobiliza 96 es (— depreciasSes) 

5) Estoque 



6 ) Capital social 

7) Ndo exigivel 

8 ) Exigivel curto prazo 

9) Exigivel longo prazo 

10) Renda operacional 

1 1) Lucro bruto 

12) Lucro operacional 

13) Lucro liquido; 

e) 0p?3° de impressdo ou ndo. 



62 



MICRO SISTEMAS, Junho/84 




Analise de balanqo 



10 'ESTE PROGRAMA EFETUA ANALISE DE BALANCO SOBRE 3 ANOS 
20 ' 

30 'PROGRAMA ELABORADO POR DORLEY DE 
40 ' 

50 GOSUB 65000 
55 CLEAR 2000 

60 Alt="ANALISE EC0N0M1CA-FINANCEIRA" 



'PROGRAHA ELABORADO POR DORLEY DE JESUS GODARTH - 21/12/83 



61 A2*=" ATIVO 

62 A3S^ "DISPONIVEL MMMMM 

63 A4l="REAL CURTO PRASO MMMMM 

64 A5i="REAI LONGO PRASO MMMMM 

65 A6l="IM0B ILIZACOES MMMMM 

66 A7t=" PASIVO" 

67 A8*="CAPITAL SOCIAL MMMMM 

68 A9*="NA0 EXIGIVEL MMMMM 

69 B 1 l="EX IG CURTO PRASO MMMMM 

70 B?l="EXIG LONGO PRASO MMMMM 

71 B3i="ATI VO REAL MMMMM 

72 B4l="PASIV0 REAL MM### 

73 B5i="PATRIM LIQUIDO 

74 B64="PARTIC TERCEIROS MMMWM 

75 89%="REL PATRIM GLOBAL MMMWN 

76 C3l="GRAU SATUR FINANC MMMMM 

77 C4l="L IQUIDEZ SECA MMMMM 

78 C5»="LIQUIDEZ GERAL MMMMM 

79 C6% 3 "LIQUIDEZ CORRENTE MMMMM 

80 C9*="GRAU DE ENDIVIDAM MMMMM 

81 D1 l="RENDA OPERACIONAL MMMMM 

82 D2*="LUCR0 BRUTO MMMMM 

83 D3l=»"LUCR0 OPERACIONAL MMMMM 

84 D4%="LUCR0 LIQUIDO MMMMM 

85 D5t="R0T AC CAPTAL PROP MMMMM 

86 D6S="RENTAB PATRIM LIQ MMMMM 

87 D7*="RENTAB FATURAMENTO MMMMM 

88 D8i="ESTAD0 GERAL ...BOM 

89 E1%="PARECER: 

90 E2*»" 

370 CLS 

380 PR INT"QUAL A RAZAO SOCIAL DA EMPRESA' 
390 INPUT E3* 

400 PRINT 

410 PRINT'QUAL 0 RAMO DE ATIVIDADE 
420 INPUT E4* 

430 FOR 1=1 TO 3 
435 PRINTsPRINT 
440 PR INT"QUAL 0 ANO ",I f 
450 INPUT A( I ) 

460 NEXT I 
470 CLS 
480 CLS 

490 FOR 1=1 TO 3 
495 CLS 

500 PRINT'QUAL 0 DISPONIVEL DE ",A 



MMMM 

MMMMMMMMMMM 

MMMMMMMMMMM 

MMMMMMMMMMM 

MMMMMMMMMMM 



MMMMMMMMMMM 
MMMMMMMMMMM 
MMMMMMMMMMM 
MMMMMMMMMMM 
MMMMMMMMMMM 
MMMMMMMMMMM 
MMMMMMMMMMM 
MMMMMMMM . MM 
MMMMMMMM . MM 
MMMMMMMM. MM 
MMMMMMMM. MM 
MMMMMMMM. MM 
MMMMMMMM. MM 
MMMMMMMM. MM 
MMMMMMMMMMM 
MMMMMMMMMMM 
MMMMMMMMMMM 
MMMMMMMMMMM 
MMMMMMMM. MM 
MMMMMMMM. MM 
MMMMMMMM. MM 



MMMM 

MMMMMMMMMMM 

MMMMMMMMMMM 

MMMMMMMMMMM 

MMMMMMMMMMM 

MMMMMMMMMMM 
MMMMMMMMMMM 
MMMMMMMMMMM 
MMMMMMMMMMM 
MMMMMMMMMMM 
MMMMMMMMMMM 
MMMMMMMMMMM 
MMMMMMMM. MM 
MMMMMMMM . MM 
MMMMMMMM. MM 
MMMMMMMM. MM 
MMMMMMMM. MM 
MMMMMMMM. MM 
MMMMMMMM. MM 
MMMMMMMMMMM 
MMMMMMMMMMM 
MMMMMMMMMMM 
MMMMMMMMMMM 
MMMMMMMM. MM 
MMMMMMMM. MM 
MMMMMMMM. MM 



. . .MEDIO 



MMMM" 

MMMMMMMMMMM" 

MMMMMMMMMMM" 

MMMMMMMMMMM" 

MMMMMMMMMMM" 

MMMMMMMMMMM" 
MMMMMMMMMMM" 
MMMMMMMMMMM" 
MMMMMMMMMMM" 
MMMMMMMMMMM" 
MMMMMMMMMMM" 
MMMMMMMMMMM" 
MMMMMMMM. MM" 
MMMMMMMM. MM" 
MMMMMMMM . MM" 
MMMMMMMM. MM" 
MMMMMMMM. MM" 
MMMMMMMM. MM" 
MMMMMMMM. MM" 
MMMMMMMMMMM" 
MMMMMMMMMMM" 
MMMMMMMMMMM" 
MMMMMMMMMMM" 
MMMMMMMM. MM" 
MMMMMMUM . MM" 
MMMMMMMM. MM" 
.REGULAR" 



LONGO PRAZO DE A< I ) ; 



510 INPUT B ( I ) 

520 PRINT 

530 PR INT"QUAL 0 REAL . CURTO PRAZO DE " { A 
540 INPUT C(I) 

550 PRINT 

560 PR INT"QUAL 0 REAL. LONGO PRAZO DE ";A 
570 INPUT D < I > 

580 PRINT 

590 PR I NT"QUAL AS IMOB IL IZACOES DE ";A(I>; 
600 INPUT E< I > 

610 PRINT 

620 PR INT"QUAL 0 ESTOQUE DE ";A(I) f 
630 INPUT F( I > 

640 PRINT 

650 PRINT'QUAL 0 CAPITAL SOCIAL DE " f A(I> 
660 INPUT G( I ) 

670 PRINT 

680 PR INT"QUAL 0 NAO EXIGIVEL DE ";A(I>. 
690 INPUT H< I ) 

700 PRINT 

710 PRINT'QUAL 0 EXIGIVEL CURTO PRAZO DE " 
720 INPUT Id) 

730 PRINT 

740 PR I NT"QUAL 0 EXIGIVEL LONGO PRAZO DE " 
750 INPUT J(I> 



CAPITAL SOCIAL DE "|A(I)j 



EXIGIVEL LONGO PRAZO DE ";A(I) ; 



ETcpm 

ONDEVOCEENCONTRA 

ASOLUQAO! 



□ MICROCOMPUTADORES 

□ SOFTWARE 

□ SUPRIMENTOS 

□ SERVICOS 

□ TREINAMENTO 



DISTRIBUIQAO DOS 
MELHORES SOFTWARES 
EXISTENTES NO MERCADO 



DESENVOLV1MENTO DE 
SISTEMAS ESPECfFICOS 



Central Panamericana 
wrlYI de Microinformatica 

Pga. Clovis Bevilacqua, 121-2? and. - SP 
Tels. (Oil) 32-7752 e 34-3057 



CIENCIA MODERNA 
COMPUTAQAO 



A Unica Especializada em Livros 
e Revistas p/ Microcomputagao 



NOVIDADES NACIONAIS: 




• TK Lembrando (Mirshawkai 


6 000 00 


• TK Calculando (Mirsbawkai 


6 500 00 


• TK Oiverlmdo (Mirshawkai 


6 000 00 


• Piogramacao TK-82/TK-83/TK-85/CP-200 


(Hurteyi 


3 600 00 


• Apticacoes Serias para TK-85 e CP-200 (Lima) 


9 000 00 


• Basik TK — Vol 1 — Elementar (Rossini) 


6 500 00 


• Curso de Jogos em Basic TK (Rossini) 


4 500 00 


• tOOl Apheacoes para 0 seu Computador 


Pessoal (Sawuschi 


10 800 00 


• A nova Revolucao industrial na era dos 


Computadores (Osbornei 


4 000 00 


• Arquitetura Microprocessadores 


Microcomputadores Vol 1 (Khambatai 


16 500 00 


• Imciacac ao Basic (Fox) 


6 700 00 


• Basic Introdutono em sete ligoes (Segurato) 


9 000 00 


• Usando CP/M Um Gma em Ensmo Programado 


(Ash ley 1 


9 900 00 


• Introdugao aos Microcomputadores Vol I 


(Osborne) 


11 00 00 


• Programas Usuais em Basic para Sistemas 


Compativeis com 0 Apple II (Poole) 


8 000 00 


• Programas Usuais em Bas e (Poole) 


8 000 00 


• Basic para cnangas dos 8 aos 8b Vol II 




(/abinski) 


8 800 00 


• dB/il Sistemas Reiacional para Gerenciamento 
de Banco de Dados — CP/M Assembler 3 


Volumes 


89 000 00 


Visite-nos ou pega uma lista do 




nosso estoque especifica para seu micro 


Atendemos tambem por Reemb Postal e Vang 



Av Rio Branco 156 — loia 127 — subsolo 
Rio de Janeiro — Tels 262-5723/240-9327 
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Micro 

informatica 



PROGRAME 0 BALANQO DE SUA EMPRESA 



Assistencia t6cnica: \ 1 
Linhas TRS 80. PC : 1 

APPLE e KAYPRO : | 

; Autorizados: • 1 

• Proldgica. Digitus e : 

• Sysdata 



; Contratode 

1 ; manuiengSo 

Desenvolvifnento e 
; venda de software 

: Consultoria 



Micros e perif6ricos 
nacionais e 
importados 



R. BarSode Mesquita 
n.° 663 Lis. 3 e 4 
Tel.:(021)238-2186 




Engenharia Ltda. 



OFUTURONAOSE 




MICRODIGITAL — PROLOGICA 
TK 83 TK 85 TK 2.000 
CP 200 CP 300 CP 500 
PROGRAMAS COMERCIAIS E 
JOGOS 

SUPRIMENTOS 




INTROD. A MICROCOMPUTADORES 
BASIC I E II 

• AULAS PRATICAS E TEORICAS 

• 2 A3 ALUNOS POR MICRO 

• TURMASDE 12 ALUNOS 

• APOSTILAS E CERTIFICADOS 

• TURMAS ESPECIAIS PARA EMPRESAS 

co^Abaf ta « swiuwiv IUU 

DEPTO. DE INFORMATICA 
AV. BRIG. FARIA LIMA. 2178-TEL.: 813-3338 
PINHEIROS — SAO PAULO - SP 
ESTACIONAMENTO 
ZONA AZUL 



760 PRINT 

770 PR INT"QUAL A RENPA OPERACIONAL DE "*A<I)j 
780 INPUT K ( I ) 

790 PRINT 

800 PR INT"QUAL 0 LUCRO BRUTO DE "?A(l>j 
810 INPUT L ( I > 

820 PRINT 

825 PRINT"QUAL 0 LUCRO OPER ACIONAL DE ";A(I); 

826 INPUT M < I > 

827 PRINT 

830 PR INT"QUAL 0 LUCRO LIQUIDO DE ";A(I>; 

840 INPUT N(I) 

940 0< I )=B < I >+C< I )+D( I >+E( I ) 

950 P(I)»I(I)+J<I> 

960 0(1) =0 ( I > -P < I > 

970 R < I )=H( I )/P < I > 

980 S(I)*0<I)/P<I) 

990 T( I >=J< I )/H< I ) 

1000 U<I>-<<B<I>+C<I»-F<I»/I<I> 

1010 V(I)=<B(I>+C<I)+D(I>)/P<I> 

1020 X ( I ) = < B < I ) +C ( I ) ) / 1 < I > 

1030 Z< I >=P < I >/Q< I > 

1040 Y< I >=K ( I )/H< I ) 

1050 YY< I )=N< I >/G< I > 

1 060 UW( I)=N< I )/K < I ) 

1070 NEXT I 

1090 PRINT 3 512, "VOCE DESEJA QUE A ANALTSE SEJA IMPRESSA Slrt(S) OU 
NAO(N) "j 
1100 INPUT SI 
1110 IF St="S" GOTO 1580 
1120 CLS 

1130 PR lNT'EMPRESA: ";E3* 

1140 PR INT"RAM0 : " p E4t 

1150 PRINT 
1160 PRINT Ait 
1170 PRINT 

1180 PRINTUSING A2* j A < 1 ) ; A ( 2 ) ; A ( 3 ) 

1190 PRINT 

1200 PRINTUSING A3* ; B ( 1 ) ; B ( 2 ) ; B < 3 ) 

1210 PRINTUSING A4* - C < 1 ) ;C < 2 ) ; C ( 3 ) 

1220 PR T NTU5ING A5% ; D < 1 ) ; D < 2 > ; D ( 3 ) 

1230 PR f NTUSING A6*;E< 1 ) ;E<2> ;E<3> 

1240 PRINT 

1250 PR I NT"P AR A CONTINUAR TECLE <S> 

1255 S*=TNKEY*:IF<S*="S"> THEN 1260 ELSE 1255 

1260 CLS 

1270 PRINT A7* 

1280 PRINTUSING A8* »G< 1 > »G< 2 ) t G< 3) 

1290 PRINTUSING .A94;H<1) ;H(2);H(3) 

1300 FRINTUSING B 1 * ; I < 1 > ; 1 < 2 > ; I < 3 ) 

1310 PRINTUSING B2* ; J < 1 > ; J < 2 ) ; J< 3) 

1320 PRINT 

1330 PRINTUSING B3* ; 0< 1 ) ; 0 < 2 ) ; 0 C 3 ) 

1340 PRINTUSING B4* ; P < 1 > f P < 2 > ; P < 3 > 

1350 PRINTUSING B5* ; 0 < 1 > ; 0 < 2 > ; Q < 3 ) 

1360 PRINT 

1370 PRINTUSING B6t;R ( 1 ) ;R < 2 ) ; R ( 3 ) 

1380 PRINTUSING B9* ; S < 1 > ; S < 2 ) ; S ( 3 ) 

1390 PRINTUSING C3* ; T < 1 ) ; T < 2 ) ; T ( 3 ) 

1400 PRINT 

1410 PR INT"P ARA CONTINUAR TECLE <S> 

1420 S*=INKEY*: IF(S*="S"> THEN 1430 ELSE 1420 
1430 CLS 

1440 PRINTUSING C4* ;U ( 1 ) ; U ( 2 ) ; U ( 3 ) 

1450 PRINTUSING C5* ; V ( 1 > ; V <2 ) ; V < 3) 

1460 PRINTUSING C6* ; X < 1 ) ; X ( 2 ) f X ( 3 ) 

1470 PRINTUSING C9* ; Z < 1 ) ; Z ( 2 ) ; Z ( 3 ) 

1480 PRINT 

1490 PRINTUSING Dl* ; K < 1 > ; K < 2 ) ; K ( 3 ) 

1500 PRINTUSING D2* ; L ( 1 ) ; L < 2 ) ; L ( 3> 

1510 PRINTUSING D3* ;M<l)fM(2)fM(3) 

1520 PRINTUSING D4* ; N ( 1 > ; N < 2 ) ; N ( 3) 

1530 PRINT 

1540 PRINTUSING D5* ; Y < 1 > t Y < 2 > f Y < 3 > 

1550 PRINTUSING D6* ; YY < 1 ) j YY < 2 > j Y Y < 3 ) 

1560 PRINTUSING D7* ; UUI ( 1 ) t UU < 2 ) j UU ( 3 ) 

1561 PR INT"P AR A CONTINUAR TECLE <S> 

1562 S*=INKEYi : IF ( S*="S" ) THEN 1570 ELSE 1562 
1570 GOTO 2070 

i 580 CLS 

1590 PRINT 3 512 r "P0SICI0NE A IMPRESORA E TECLE <S> "» 

1600 S*=INKEY*:IF(S*="S"> THEN 1410 ELSE 1600 
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1610 LPR I NT "EMPRESA : " ? E34 
1620 LPR INT"R AMO : " f E4* 

1630 LPR INT 
1640 LPRINT Ai* 

1650 LPRINT 

1660 LPR INTUSING A21 ; A < 1 ) ; A ( 2 ) ; A < 3 ) 

1670 LPRINT 

1680 LPR INTUSING A3* ; B ( 1 ) ; B < 2 ) ; B ( 3 ) 

1690 LPR INTUSING A4* ? C < 1 ) 5 C < 2 > ; C < 3 ) 

1700 LPR INTUSING A5*;D< 1 > ;D(2) ;D(3) 

1710 LPR INTUSING A 6 *;E< 1 ) jE<2) ;E<3) 

1720 LPRINT A7% 

1730 LPR INI USING A 8 *,G< 1 ) ,G<2> ;G<3> 

1740 LPR INTUSING A9*-H< 1 ) -H<2) ;H<3> 

1750 LPR INTUSING B 1 * ; I ( 1 j ; J ( 2 ) ; I ( 3 ) 

1760 LPR INTUSING B2t; J< 1 ) 5 J(2) j J<3) 

1770 LPRINT 

1700 LPR INTUSING B3* p 0 < 1 ) ; 0< 2 ) ; 0 ( 3 ) 

1790 LPR INTUSING B4* ; P < 1 ) , P ( 2 ) ; P < 3 ) 

1800 LPR INTUSING B5* ; (J C 1 > ; 0 < 2 ) ; 0 ( 3 ) 

1810 LPRINT 

1820 LPR INTUSING B 6 * ; R ( 1) ; R < 2 ) ; R ( 3 ) 

1830 LPR INTUSING B9* f S( 1 ) pS(2) ;S<3) 

1840 LPR INTUSING C3* p T ( 1 ) ; T ( 2 ) ; T ( 3 ) 

1850 LPRINT 

i860 LPR INTUSING C4* ? U < 1 ) p U ( 2 ) p U ( 3 ) 

1870 LPR INTUSING C5* ; V < i > ; V < 2 > ; V < 3) 

1880 LPR INTUSING C 6 * p X ( 1 ) p X < 2 ) p X < 3 > 

1 8 r > 0 LPR TNTUSING C94 - Z ( 1 ) p Z ( 2 > p Z < 3) 

1900 LFRINT 

1910 LPR INTUSING Di* p K < 1 ) p K < 2 ) p K i 3 ) 

1920 LPR INTUSING D2*pL< 1 > pL<2) pL<3> 

1930 LPR INTUSING D3* ; M < 1 ) ; M < 2 ) ; M < 3 ) 

1940 LPRINTUSING D4*;N( 1 ) pN(2) ;N<3) 

1 950 LPRINT 

1940 LPRINTUSING D5% p Y ( 1 ) p Y < 2 ) p Y < 3 ) 

1970 LPRINTUSING D 6 * • YY < 1 ) ; YY ( 2 ) p Y Y < 3 ) 

1980 LPRINTUSING D7* ; UU < 1 > p UU ( 2 ) p UU ( 3 ) 

1990 LPRINT 
2000 LPRINT D 8 * 

2010 LPRINT 
2020 LPRINT Ei* 

2030 FOR X=1 TO 15 
2040 LPRINT E2t 
2050 NEXT X 
2040 LPRINT 
2070 CLS 

2080 FR INT"OUTR A ANAI.1SE ,SIM<S) OU NAO< N) "p 
2070 INPUT S* 

2100 IF S*="S" GOTO 55 

2110 PRINT 8458, "FIM DE PROGRAMA" 

2120 GOTO 65380 

65000 CLSsGOSUB 65010 

65005 GOTO 65270 

65010 CLS:PRINT SPRINT 

65020 PRZt*" "JG0SUB65140 

65030 PRZl=" ANALISE DE BALANCOS "SG0SUB65140 

65040 PRZ1=" "SG0SUB65140 

65050 PRZ*=" ELABORADO POR : ":G0SUB65140 

65060 PRZ*=" ":G0SUB651 40 

65070 PRZ*=" DORLEY DE JESUS GODARTH ":G0SUB65140 

65080 PRZt*" l ' s G0SUB65 1 40 

65090 PRZl=" CURITIBA, 26 DE DEZEMBRO 1983" : G0SUR651 40 

65100 FRZ*=" " IG0SUB651 40 

65110 PRZ*=" FONE : (041) 222-6953 ":G0SUB6514D 

65120 PRZ*=" " s G0SUB651 40 

65130 FOR AS=1 TO 1000:NEXT ASsRETURN 

65140 FOR AZ= 1 TO LEN ( PR Z* ) : PR INT MID* ( PR Z* , AZ , 1 ) p : FOR AX=1 1 TO 25: 
NEXTAX,AZ:PRINT:RETURN 
65270 CLS 

65280 PRINT:PRINT:PRINT 

65290 PR 1 NT"ESTE PROGRAMA FORNECE UMA ANALISE ECONOMICA-F 1NANCE IRA 
65300 PR INT"SOBRE OS 3(TRES> ULTIMOS BALANCOS DE UMA EMPRESA." 

65310 PR INT"CASO A EMPRESA NAO POSSUA 3 BALANCOS , DEVE-SE ATRIBUIR" 
65320 PR INT"PAR A OS DADOS DOS ANOS OUE A EMPRESA NAO TENHA BALANCO" 
65330 PR INT"0 VALOR <1>. " 

65340 PRINT:PRJNT:PRINT 

65350 PR INT"PAR A CONTINUAR TECLE <S>"? 

65360 S*=INKEY*:IF(S*="S")THEN 65370 ELSE 65360 
65370 RETURN 

65380 PR INT :PR INT SPRINT SPRINT: PR INT 
65390 END 



NEW ™ APPLE 



! G0SUB651 40 



' : 60SUB651 40 



• INTEAFACCU PARALLEL* QRAFICA PER STAMP ANTE LOW COST U.S.S 7S 

• INTERFACCIA PARALLEL* SUPER PRINT incluto cm 2 ml. Mltwm. bull*. 

25* k. *cc. (iptllcwt »Ump*nl« da Mtkttn) U.S.I 10S 

• TELERASTER SCHEOA INTERFACCIA PER TELECAMERA ISeltm dl abt» 

iwmnto QRAFPAK cod 3001 U.S.S 395 

• SCHEDA 16 KILOBYTES MEMORY CARO IPASCAL) U.S.S 78 

• SINOOLO DRIVE 5 1M 140 K U.S.S 410 

• SINOOLO DRIVE 5 ' 114 140 K SLIM U.S.S 410 

• DOPPIO CONTROLLER PER DRIVE 5~ * SLIM U.S.S 70 

• DOPPIO DRIVE KV35 SLIM DOPPIA OENSITA. CAPACfTA TOTALS 655 360 B 

incluto alimtnltlort i«ltcMn« a dopqto controlldr U.S.S 1.S4S 

• SOFTWARE PER OPERARE IN PASCAL E CP/M pat unit* Doppto Dm* 60/35 

U.S.S 37 

• DOPPIO DRIVE 60/35 SUM DOPPIA OENSITA. DOPPIA FACCIA capacila loliu* 

12 MdgabfWa U.S.S 1*00 

• SCHEDA DIGICOOER INTERFACCIA PER ENCOOER OTTICI 2 CANAL! lino a 

100 MILIONI Dl PUNTI SOFTWARE INCLUSO U.S.S 580 

• SCHEDA ESPANSIONE 12* K U.S.S 290 

• CONVERTITORE ANALOGICO DIG IT ALE A 6 BIT 16 CANAU U.S.S 210 

• CONVERTITORE ANALOGICO DIGIT ALE A 12 BIT, 4 CANAU Dl INPUT E 4 CON 

TATTI Dl RELA1S CON OROLOGIO CALENDAR® U.S.S 340 

• CONVERTITORE A/D A 12 BIT GUADAGNO PROGRAMMABILE. 2 CANALI IN 

PUT DIFFEREKZIALL AMPLIFiCATORE A GUADAGNO PROGRAMMABILE 

U.S.S 375 

• CONVERTITORE A/D 12 BIT VELOCE (25MS) * CANAU 01 INPUT COMPLETA 

MENTE DIFFEREN2IALI AMPLIFICATORE CON GUADAGNO PROGRAMMA 
BILE U.S.S BOO 

• SCHEDA 60 COLONNE COMPATIBILE CON TUTTI I LINQUAGGI BASIC. 
PASCAL. CP/M, FORTRAN, APPLE WRITER. VISICALC. ECC. U.S.S 250 

• BUFFER Dl LINE* PER STAMPANTE IN CONTENITORE ESTERNO, INCLUSI 
2 CAVI E CONNETTORE ALIMENTATORE mod 16 K CENTRONICS TO 
CENTRONICS ESPANDIBILE A 46 96 K RS232 IEEE 4*6 U.S.S 270 

• INTERFACCIA SERIALE RS 232 01 COMUNICAZIONE CON BAUD RATE 

SELE2I0NABILE. INCLUSO CAVO E DB 25 U.S.S 1 55 

• SCHEDA 280 CP/M INCLUSI 2 VOLUMI E SOFTWARE U.S.S 224 

• SCHEDA PAL PER COLLEGAMENTO MONITOR COLOR! U.S.S 100 

• SCHEDA VGP VECTOR GRAPHIC PROCESSOR RiSOLUZWNE 512 a 512 PIXEL 

2 PAGINE 01 MEMORIA Imonocromatic*) U.S.S 1.060 

• SCHEOA VGP 64 6 COLOR! INCLUSO HOST ADAPTOR U.S.S 2 120 

• SCHEOA VGP 64 64 COLORI INCLUSO HOST ADAPTOR U.S.S 2.450 

• SCHEOA VGP 64 4096 COLORI INCLUSO HOST AOAPTOR U.S.S 4 850 

• OPZIONE PER VGP 64 EXTERNAL SYNC INPUT U.S.S 360 

• SOFTWARE 01 UTIUTIES PER VGP MONICROMATICA U.S.S 85 

• SOFTWARE D! UTILITIES PER VGP 64 COLORI U.S.S 85 

• PI ASTRA CPU 46 K MEMORIA RAM MICROPROCESSORS 6502 U.S.S 350 

• TASTIER* ALFANUMERICA CON PAD NUMERICO REPUT AUTOMATICO SU 

TUTTI I TASTI USCITA ASCII 6 BIT U.S.S 130 

• AUMENTATORE +5— SV, ♦ 12 — 12V, CON F1LTRI ANTIDISTURBO TENSIfr 

NE ALIMENTAZIONE 220 VOLT 50 H2 10 AMP U.S.S 95 

•AUMENTATORE TAMPONE CON BATTERIE RICARICA AUTOMATIC* 

U.S.S 230 

• CABINET METALLICO INCLUSO KIT Dl MONTAGGIO PER ELAB. U S S 1 15 

• MICROELABORATORE APPLE COMPATIBILE COMPLETO MONTATO E 
COLLAUDATO A VENTILA210NE FORZATA. INCLUSI 3 MANUALI U.S.S 820 

• PROLUNQA SLOT LUNGHEZZA CA. IS cm A8BINABILE A OUALUNOUE 

SCHEDA IN COMMERCIO U.S.S 42 

• GENERATORS 0! PATTERN PER DEMO STAMPANT1, PLOTTERS. ECC. 
IDULE PER COMPUTER SHOP E FlERE DA 1 A 4 K EPROM U.S.S 70 

• TELECAMERA PROFESSIONALS par SCHEDA TELERASTER AUM 220 V CON 

OBIETTIVO 16 MM CON DIAFRAMMA U.S.S 350 

• HARO DISK WINCHESTER 5 M. BYTE U.S.S 3.575 

• HARD DISK WINCHESTER 10 M BYTE U.S.S 4.300 

• HARD DISK WINCHESTER 20 M. BYTE U.S.S 5.775 

• TAPE STREAMING BACK UP 10 M BYTE U.S.S 3.465 

• MONITOR FOSFORI VERDI RACK METALLICO 9" U.S.S 135 

• MONITOR FOSFORI VERDI RACK METALLICO 12" U.S.S 160 

• MONITOR COLORI INCLUSA SCHEDA INTERFACCIA COLORE U.S.S 550 

• PLOTTER WATANABE 6 PENNE FORMATO A 3 U.S.S 1 .024 

• JOYSTICK CON CAVO Dl I/O GAME E OUE INTERRUTTORI U.S.S 43 



IMPRESSORAS OKI SERIE MICROLINE 

■ ML 80 (80 ept 60 dl SEMIGRAFICA FRIZ. ♦ P FEED ♦ RULLO PARALLEU 

U.S.S 365 

> ML 82/A <120 cps 80 d) SEMIGRAFICA FRIZ. * P FEED PARALLEU • RS 

232 1200 BAUD U.S.S 580 

> ML 92 (160 ept ■ 80 d) GRAFICA N.L 0 FRIZ. 4 P FEED PARALLEU 

U.S.S 780 

• ML 63IA (120. ept 132 d) SEMIGR. FRIZ 4 TRATTORE PARALLEU < RS 

232 1200 BAUD U.S.S BOO 

> ML 93 1160 ept 132 d) GRAFICA N.LO. FRIZ 4 TRATTORE PARALLEU 

1.140 

- ML 84 (200 ept • 132 d) GRAFICA 8 N.LO. FRIZ 4 TRATTORE PARALLEU 

U.S.S 1-270 

> OPZIONE GRAFICA PER ML 62/A 83/A INCLUSO MANUALS U.S.S 30 

• INTERFACCIA IEEE 486/OKI U.S.S 160 



SOFTWARE PERTEL PER APPLE 

• MINUSCOLE E M/UUSCOLE PER APPLE II U.S.S 36 

• EDITOR CJ1. SOFTWARE TRANSCODIFICA EIA ISO EDITING Dl BANDA 

PERFORATA PERFAETTURA U.S.S 48S 

• GRAFPAK HARO COPY VIOEO PER STAMPANH U.S.S 45 

• MAILING UST (1000 NOMINATIVI PER DISCHETTOl U.S.S 35 

• CALCOLO ARU CON JOYSTICK PER SCHEOA TELERASTER U.S.S 50 

• POTENTE SOFTWARE GRAFICO INTERATTIVO INCLUSO CONTROLLER 

E MANUALI U.S.S 1.230 

• SOFTWARE 01 OUTPUT PER PLOTTER WATANABE CALCOMP H P. U.S.S 520 

• BIBUOTECA SOFTWARE PER ARCHITETTURA U.S.S 75 

• BIBUOTECA SOFTWARE PER IORAUUCA U.S.S 75 

• BIBLIOTECA SOFTWARE PER ELETTRONICA U.S.S 75 

• BIBLIOTECA SOFTWARE PER CHIMICA U.S.S 75 

TOOOS OS PRODUTOS OESCRIMINADOS SAO CONCIUAVEIS COM APPLE 
ORANGE UNITRON ECC PROCURAMOS DISTRIBUIDORES 
CONOICONES ESPECIAIS PARA REVENOEDORES E INTERESSAOOS COMO 
“HOBBY" 0 CATALOGO HA MAIS DE 90 PRODUTOS. SOLICITEM NOS 



perifericme 

U LSLt-lj U Ls!J =3 telecomunh 



■■ U ISlr-O U LSL!=) TELECOMUNICAZIONI 

VIA ORMEA. 99 • CEP. 10126 TORINO (ITALY) 
TEL. (0111 655.865 • 651574 
TELEX 224243 PERTEL • I 

I NOMI APPLE. APPLE COMPUTER E II SIMBOIO APPLE 
SONO MARCHI REOISTRATI OALU SOCIETA APPLE COMPUTER INC 
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Economizar 4 a ordem do dia. Portanto, ganhe tempo na gravagao e leitura 
de dados em fita cassete nos micros da I in ha TRS-80 Modelo / 



Otimizacao de arquivos 

em cassete 

Roge Rosolini 



O processo que apresentamos 
neste artigo trata-se de uma 
explicagao, detalhada e com 
exemplos de facil compreen- 
sao, a respeito da concatenagao de strings 
antes da gravagao de dados na fita cas- 
sete e da desconcatenagao destas strings 
ap6s a leitura. Isto, na realidade, 6 bas- 
tante simples, mas proporciona grande 
economia de' tempo, que its vezes chega 
a um quinto do normal para a gravagio 
e leitura de dados em cassete. 

Este procedimento tambdm pode ser 
tornado por quern possui disco, para a 
agilizag£o dos arquivos seqiienciais. 

0 PROCESSO 

Em primeiro lugar, deve-se ter uma 
atengao especial na gravagao dos dados, 
pois o computador, ao emitir as infor- 
magGes, nao verifica o status do grava- 
dor e, se a fita nao for colocada desde o 
inicio com sua parte magnetica em con- 
tato com o cabegote do gravador, as 
primeiras informagoes enviadas serao 
perdidas. 

Suponhamos que em nosso progra- 
ma temos as variaveis AS, BS e CS, que 
representam, respectivamente, o nome, 
o telefone e o CEP de uma determinada 
pessoa: 

A$= " Joao Jose da Silva": 
B$= " 249-4649 ":C$=" 04716" 

Normalmente, gravamos os dados as- 
sim: PRINT # -1 ,AS,BS,CS, ou seja 
tres variaveis distintas. Mas se transfor- 
mamos as tres variaveis em uma s6, gra- 
vamos apenas uma, o que resulta numa 
grande economia de tempo, principal - 



mente se temos cinco ou seis variaveis. 

Para juntarmos as tres varidveis em 
uma s6, temos de introduzir caracteres 
de controle entre elas, caracteres esses 
que nao sejam acessiveis ao usuario (gra- 
ficos ou especiais). Fazemos isso da se- 
guinte maneira : 

Z$=A$+CHR$ (143) +B$+CHR$ 
(143 ) +C$ 

Deste modo, nossa varidvel ZS fica: 

Z$="Joao Jose da Silva 
■24 9-4 64 9B047 16 " 

tm caso de variaveis numericas, de- 
vemos converte-las para string, usando 

SIRS. 

Para gravar nossas tres varidveis nu- 
mericas anteriores, usamos apenas 
PRINT # -1,ZS. Entretanto, deve-se 
tomar cuidado para que o comprimento 
de ZS (no caso) nao ultrapasse 236 ca- 
racteres. Para lermos ZS, utilizamos 
INPUT # -1,Z$ e, em seguida, inicia- 
mos a descompactagao das variaveis, ve- 
to INPUT#-1,Z$ 

20 FORA= 1TOLEN ( Z $ ) 

30 IFMID$ (Z$,A,1)=CHR$ (143) 
THEN4 OELSENEXT 
40 A$=LEFT$ (Z$ ,A-1) :A=A+1 
50 FORB=ATOLEN ( Z$ ) 

60 IFMID$ ( Z$ , B , 1 ) =CHR$ ( 143 ) 
THEN7 OELSENEXT 
70 B$=MID$ ( Z$ , A , B-A-l ) : B=B+ 

1 

80 FORC=BTOLEN ( Z$ ) 

90 IFMID$ (Z$,C,1)=CHR$ (143) 
THENl 00ELSENEXT 
100 C$=RIGHT$ (Z$ , LEN ( Z$ ) - (C+ 

D) 



rificando carater por carater de ZS, ate 
encontrarmos o carater grafico 143. 
Acompanhe este processo na figura 1. 

Conv^m saber que na linha 40 (Figu- 
ra 1) foi usado LEFTS porque se trata- 
va do inicio da variavel ZS; nSo haven- 
do nada a esquerda disso, nao foi neces- 
sario usar MIDS. O mesmo acontece 
coma linha 100,onde usamos RIGHTS, 
por ser o final da variavel ZS. 

Em termos praticos, se tivessemos va- 
rias variaveis. fariamos da seguinte ma- 
neira: 

LEFT$ 



n X MID$ 



RIGHT$ 

£ interessante, tambem, que se utili- 
ze velocidade alta de gravagao, obvia- 
mente nos computadores que a possuam. 
Se o programa tiver sido gravado em ve- 
locidade baixa, podemos mudar isso 
com POKE 16913,1 (zero para baixa e 
diferente de zero para alta). ■ 



Rogi Rosolini tern 16 anos, cursa a 2? sirie 
do 29 grau e 6 responsive!, junto com Fernan- 
do Coura, tambim de 16 anos, pela LOGI- 
CAL SOFT, uma empresa que desenvolve pro- 
gramas de aplicagoes: domisticas, jogos de 
agao e a ventura, todos em versao cassete. 
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No Brasil de hoje, nenhuma empresa IHn \ 
pode perder a oportunidade de mostrar 
suas novas ideias, novos equipamentos 
e servigos no maior centro economico do 
Pais: Sao Paulo. 

O caminho esta aberto para voce na 
11? FUSE, de 20 a 24 de junho. Alias, essa e a 
epoca mais propicia para investir e acompanhar 
as atuais conquistas desse mercado. 

Essa Feira foi cuidadosamente planejada para 
ser o mais lucrativo encontro entre a oferta e a 
procura, reunindo milhares de diretores, gerentes, : 
empresarios do Brasil e do exterior, que estarao 
presentes para conhecer e fechar negocios 
que proporcionem aumento de qualidade e redugao de 
custos operacionais. 

No Par que Anhembi voce conhecera as ultimas con- 
quistas na area de informatica, telecomunicagoes, moveii 
e instalagoes, brindes, consul tori a e assessoria, entre outn 

Para quern quer fechar negocios de milhoes, um aviso; 
esta na hora de reservar o seu 
estande e garantir o lugar que 
sua empresa merece. l 

Setores: . 

• Processamento de Dados v ' v ^ « 

e Teleprocessamento • " 

ComunicagaoeTeleco- 

municagao • Arquivo, ^ 

Classif icagao e Micro- ^ 

filmagem • Instalagoes e ? ^ ^ 

Mobiliario • Maquinas de 
Escrever, Calculo e 

Contabilidade • Copias, * 

Impressao, Acabamento e 

Enderegamento • Maquinas 

Graficas e Materials • Controles 

Visuais e Relogios • Seguranga e 

Saude • Artigos de Papelaria, 

Desenho e Escrita • Consultoria e 
Assessoria • Brindes • Servigos em 
geral • Publicagoes • Ensino e Pesquisa 

• Bancos e Financeiras. 



1 1? Feira Internacional de Utensilios e Servigos de Escritorio. 



Horario: das 9 as 18 horas 



Patrocinio: Febraban - Federagao Brasileira das Associagoes de Bancos 
Fenaban - Federagao Nacional de Bancos 
Promogao: Alcantara Machado Feiras e Promogoes Ltda. 

Rua Brasilio Machado, 29 - Sao Paulo, SP - CEP 01230 - Telefones: 826-91 1 1 e 67-1323 - Telex (01 1 ) 22398 AMCE BR 



Evento autorizado e oficializado pelo CDC. 
do Ministerio da Industria e do Comercio. 



Vetcuiooficiai: , 







rodada MS 



Use seu micro da I inha TRS-80 para automatizar os seus QLSs e mantenha 
atua/izado o seu Livro de Registro de Comunicados com este... 

Arquivo de comunicados 



E ste programa foi desenvolvido 
com o objetivo de facilitar a ta 
refa do radioamador no preen- 
chimento de cart6es QSL e do 
Registro de Comunicados (LOG), e estd 
pronto para ser utilizado em micros da 
linha TRS-80, versiio disco com impres- 
sora. Os colegas que nSo possuem esses 
dois perifdricos, entretanto, tambdm 
poderao aproveita-lo mendiante peque- 
nas modifica^oes: 

. os que nao dispoem de impressora de- 
vem eliminar a opgao 4 do menu e mo- 
dificar a opgao 5 para a saida em video, 
ao inves de impressora; 

. quern s6 dispoe de versao cassete, bas- 
ta modificar as op 9 oes 2 e 3 do menu 
para que passem, respectivamente, a gra- 
var e carregar arquivos em fita cassete 
(isto 6 possivel porque o programa traba- 
Lha com todos os dados “em memdria”). 

Observafao: para facilitar as eventuais 
altera^des o inicio e o termino de cada 
uma das rotinas de que se constitui o 
programa estao nitidamente assinalados 
na listagem. 

Vamos entao aos detalhes do progra- 
ma. Ele possui cinco modos de opera^o 
orientados por menu, o qual passo a des 
crever. 



1 ARQUTVAR 

Nesta op^ao, sera inicialmente ques- 
tionada a quantidade de comunicados a 



serem arquivados Tendo em vista o di- 
mensionamento das matrizes, o numero 
de comunicados nao poderd exceder a 
100, mas uma pequena altera 9 ao na li- 
nha 50 permitira aumentar ou diminuir 
esta quantidade. A seguir, o micro passa 
a solicitar, na terminologia mundialmen- 
te adotada, os dados referentes a cada 
comunicado. 

0 programa nlo foi desenvolvido es- 
pecificamente para registrar comunica- 
dos ao mesmo tempo em que est fn sen- 
do realizados, por uma unica r azao: sem- 
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Figura l - Etiquetas autoadesivas 



A /done Sperandio Junior 



pre tive por norma registra-los a parte, 
para prevenir uma eventual falta de ener- 
gia e a conseqiiente perda do registro 
dos comunicados. Nada impede, pordm, 
que os comunicados sejam registrados 
simultaneamente: basta adaptar o pro- 
grama para tal. 

Apos o tdrmino desta op 9 So, o pro- 
grama retoma ao menu , quando ent§o o 
operador pode, conforme seu desejo, 
imprimir as etiquetas a serem coladas 
nos QSLs com os dados de cada comu- 
nicado (opgao 4); imprimir uma folha 
do Registro de Comunicados (opgao 5); 
ou, se preferir, guardar todos os dados 
para posterior utilizado, gravando-os 
em disco (opgao 2). 



2. GRAVAR EM DISCO 

0 arquivo aqui utilizado 6 seqiiencial; 
o micro questionara o nome do arquivo, 
o qual nSo deve exceder a oito caracte- 
res. Sugiro que o nome seja iniciado 
com as letras QSO, seguidas do numero 
de ordem do arquivo, da letra Q e de um 
ou dois algarismos que representem a 
quantidade de comunicados arquivados. 
Por exemplo, QS03Q12 significaria o 
arquivo de QSOs numero 3, contendo 
12 comunicados. Em seguida, o micro 
perguntard a quantidade de comunica- 
dos a serem armazenados, o que deve ser 
respondido com atengao para evitar pro- 
blemas futuros. 
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3. CARREGAR DO DISCO 

Esta opgao destina-se a carregar do 
disco dados anteriormente gravados. 
Pressionando-se a tecl^ 3, surgira no vi- 
deo o diretdrio do disco em BASIC, cuja 
fungao 6 facilitar a identificagao dos ar- 
quivos existentes e a selegao do que in- 
teressa no momento, bem como a iden- 
tificagao da quantidade de comunicados 
arquivada no mesmo. Seria interessante 
utilizar um unico disco para o programa 
e todos os arquivos. 

Ao tdrmino desta etapa, da mesma 
forma que ao tdrmino da opgao 1 , todos 
os dados referentes a um arquivo de co- 
municados estarlo na memdria, o que 
toma disponiveis para uso as opgoes 



4 PREENCHIMENTO DE QSLs 

Aqui se da a impressao das etiquetas 
autoadesivas, contendo os dados de 
QSOs, a serem colocadas nos cartdes 
QSL (ver figura 1). A formatagao da im- 
pressao 6 para etiquetas em uma coluna 
de 2.40x9.00 cm, mas voce pode modi- 
ficd-la facilmente para o tipo de etiqueta 
de que dispuser e para aproveitar ao md- 
ximo os recur sos de sua impressora, tais 
como caracteres expandidos, comprimi- 
dos ou graficos. 

Not a de PY1D WM: se voce conseguir 
formuldrio continuo de maior gramatu- 
ra, tipo cartolina, pod era modificar esta 
opgao para imprimir, em vez de etique- 
tas, todos os seus cartdes ; alem de uma 
substancial economia - o prego de um 
QSL esta proximo da estratosfera - o 
sucesso sera tao garantido que muitos 
dos seus amigos possivelmente encomen- 
dardo a voce a confecgdo dos seus QSLs, 
proporcionando-lhe um QSJ extra... que 
ajudard a pagar a sua impressora! Mon- 
de noticias. 



5. PREENCHIMENTO DO LIVRO 
DE REGISTRO 

Esta opgSo (ver figura 2) realiza o 
preenchimento da folha do Livro de 
Registro de Comunicados, obrigatdrio 
pela legislagao, para os QSOs constantes 
de um determinado arquivo. A formata- 
gao 6 para formulario de 80 colunas, e 



De PY1DWM 



i estamos na segunda edicao da RODADA MS. Embora o tempo decorrido entre o 
langamento do numero 31 e o fechamento deste tenha sido bastante pequeno. 



langamento do numero 31 e o iecnamento aeste tenha ado bastante pequeno, 
poaemos, quer pela correspondencia recebida, quer pelos comentarios nas faixas, 
antecipar o seu sucesso. 



De inicio quero pedir descuplas ao amigo e colaborador Pivatto-PY3IT pela publi- 
cagao incorreta de seu indicativo - macanuao que se preza munheca logo na entrada, 
HI I Para compensar, uma boa noticia:a Rodada do Micro, cuja criagaofoi sugerida em 
MICRO SISTEMAS numero 31 com a maior das boas intengoes, ja existe hd algum 



tempo. £ comandada por PY2AQO - Luiz, de Jau, SP, funciona diariamente a partir 
das 16:00 h em 7097 KHz ± QRM, e 6 bastante concorrida; o forte da turma 6 a linha 
Sinclair e o papo corre solto at 6 pelo menos 18:30 h. Aguardem, pois temos muitas 
promessas de colaboragoes do Luiz e sua turma... 

Antes de continuar, um parentesis: alguns colegas reportaram dificuldades na digita- 
9 S 0 do Professor Picapau (MS n9 31), pois a impressora usa o mesmo carater para o al- 
garismo zero e a letra O, o que causa alguma confusSo nas linhas 200 , 220 , 230, 250, 
320, 530, 820 e 860. SRI, isto nao mais acontecera 

Correspondencia recebida: de PYlFO-fivio, PY3IT-Pivatto, PYIBCN-Machado e, 
pelo CWRJ, de PYIEWN-Ronaldo, todas com palavras amigas e de incentivo; de 
PY5CIG-Alcione, com esta excelente colaboracao que ora publicamos e tambem do 
CWRJ, enviando-nos o Boletim Informative nP 16 (marco/abril 84). 

Gostarfamos de destacar a carta recebida de PY2QV-Casa do Radioamador de Ri- 
beirio Preto, dando conhecimento da elei 9 io e posse da nova diretoria para o ano de 
1984, liderada por PY 2 VDJ -Roberto Annovazzi (nossos votos de uma feliz e proff- 
cua administragao) e, ainda, solicitando publicagao de seu enderego, tendo em vista 
possuir um grupo de usuarios de microcomputadores interessado no intercambio de 
mformagoes com erupos congeneres. O endereco da Casa do Radioamador de Ribei- 
rao Preto 6 Caixa Postal 575, CEP 14100, Ribeirao Preto, SP, e o telefone para conta- 
tos imediatos de qualquer grau e 624-5896. 

Por falar em grupos e entidades, a RODADA MS tera prazer em divulgar quaisquer 
atividades relacionadas a utilizagao do micro no radioamadorismo, quer de grupos li- 
eados k entidades radioapadorfsticas, quer de grupos de f undo de quintal. Da mesma 
forma, ser3o feitas referencias a Boletins Informativos, QTCs falados e demais publica- 
g 6 es semelhantes que nos sejam enviadas. 

Nlo percam na prdxima edigao da RODADA MS um programa para treinamento 
de CW, colaboracao de Jorge Alberto Correia Bettencourt Soares, para os usuarios da li- 
nha Sinclair. E fiouem ligados nesta promogao: todos os colegas que remeterem, at 6 15 
de agosto, um QSL para a RODADA MS contendo alguma opiniao, crftica ou sugestao, 
concorrerao ao sorteio de tres assinaturas de 1 ano de MS. Os radio-escutas ou os que 
nSo tern QSL podem mandar uma cart inha. 

Agora ji vou indo, mas antes desejo ressaltar o transcurso no dia 5 de maio do Dia 
das Comunicafdes, durante o qual tive a oportunidade de ouvir pelas faixas as mais di- 
versas homenagens ao nosso insigne patrono, Marechal Candido Mariano da Silva Ron- 
don. Os para bens a todos n 6 s. 

CQ, CQI Preciso urgente entrar em contato com possuidores de KENWOOD TS 1 30V 
ou TS 120V. Desculpem o cambio espada e vamos continuar prestigiando a nossa RO- 
DADA MS. 

HPE CTJAGN 73 ES GL FM PYIDWM-Quito 



A RODADA MS 6 coordenada por PY1DWM-Rob«rto QUITO da Sant'Anna. Qualquer 
correapondAncia a/ou colaboracao deve aer ertviada aos seus cuidados, para a 
Av Presidente Wilson, 165, grupo 1210, CEP 20030, Rio de Janeiro, RJ. 
Contato* diretos via Rodada do Micro (7097 KHz, das 1600 As 1800 h), 
Patrulha da Madrugada (7055 KHz, das 2200 As 2300 h) ou pelo telefone 
(0243) 54-3355. ramal 594. 
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Figura 2 - Registro de comunicados 
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voce deve alterd-la, se for o caso, para ti- 
rar o maior proveito possivel dos recur- 
sos de sua impressora e do formulario 
disponivel. 

Considerafoes finals: embora tenha 
desenvolvido o programa segundo os pa- 
drSes intemacionais para o preenchimen- 
to de QSLs, e segundo os modelos de Li- 
vro de Registro de Comunicados que en- 
contrei, tive a preocupa9ao de deixar 
bem nitidamente separadas cada uma de 
suas partes. Assim, o usuario final pode- 
r& adaptd-lo convenientemente ao seu 
gosto com o mmimo de esfor90. Aldm 
de constituir urn produto acabado, pron- 
to para utiliza9ao imediata, este progra- 
ma pode tambem ser considerado um 
ponto de partida para o grau de sofisti- 
ca9ao que voce desejar. 



Formado am Administraqao de Empresas. At- 
done Sperandio Junior if radioamedor desde 
1971. prefixado com o indicative PY5CIG. 
Utilize microcomputadores para desenvolver 
prog ra mas de uso pessoal e apiicativos comer- 
dais na free am que atua. 



MICRO 
SISTEMAS 
n.° 34! 



pode perder. 



• MICRO MERCADO. LINHA APPLE - 
o poderoso mito da maps. A historia, 
caracteristicas e aplicapdes desses 
equipamentos, e o seu impacto no 
mercado brasileiro. 

• EDITOR DE LEMBRETES - explicacSo 
sobre o que 6 e para que serve o Mini 
NEW DOS. Para completar, uma 
ferramenta que permite interromper 

a execupao de qualquer programa, ir 
ao Mini NEW DOS e retornar a execup3o 
normal. 

• LI VAR 2 - rotina em Assembler, 
equivalente a um comando do BASIC 

do NEW DOS, que lista instantaneamente 
todas as variSveis de um programa. 

• DISTRIBUTES ESTATlSTICAS - 
programa de provisoes estatisticas, 
para Sinclair, que fornece resultados 
em tres distribuipoes. 
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ARQUIVO DE COMUNICADOS 



AGORA E MAIS 
FACIL ASSINAR 

./Micro 



Para sua maior comodidade, 

a ATI Editora Ltda. 

coloca a sua disposip^o 

os seguintes endefe$os 

de seus representantes autorizados: 



Arquivo de comunicados 



Q '-crscssssssssenssssasssssssasssssssssBSBSsssssssssssss-sss-ss 

10 'ARQUIVO DE COMUNICADOS 

20 'PROGRAMA DE Ale i one Sperandio Junior 

25 'RUA SAO LE0P0LD0 125 - 80000 CURITIBA - PARANA 

40 CLEAR2000 

50 DIMTRS(iOO) :DIMDH(100) :DIMTUS(100) JDIMWWS(IOO) :DIMRRS(100) :D 
IMRSSt 100) sDIMMHl ( 100) :DIMNS< 100) :DIMQT4( 100) 

60 ’aZEBCZZIBESCaBIBCBaiSaBZaBBBBBaaiBIClSCCCIBKEBaBBaUMISSBaC 

70 'ROTINA DE DESVIOS PARA AS DIVERSAS ROTINAS DO PROGRAMA 

00 r SS3S=SS=SSZSSSBSSSSSSS=SSSBSSBSSS=B=S:SS=SBS=SS=SSS=S3SrZSBS 

100 CLS!F0RA=1T0127:SET(A,0) :SET(A, 12) s SET (A, 47) :NEXTA 
105 F0RA=21T037:SET(25,A) sNEXT 

110 PR I NT 367 , "ARQUIVO DE COMUNICADOS" : PR INT3131 , "P-Y-5-C- 1 -G" : PR 
I NTS 160 , "< ( C ) > Alcione Sperandio Jun i or"; :PRINT3195,"Z-Y-5-C-I- 
G", 

120 PR I NT 3463, "ARQUIVAR - 1 -" * : PR INTS527 , "GRAVAR EM DISCO - 2 - 
" • JPRINT3591 , "CARR EG AR DO DISCO - 3 -"; : PR INT3655 , "PREENCHIMENTO 
DE Q.S.L.s - 4 -"; SPRINT3719, "PREENCHIMENTO LIVRO DE REGISTRO 
- 5 -" • : PR INTS 783,"FIM DE TRABALHO - 6 
130 B YS=INKEYl 
140 IFBYl="i",197 
150 IFB YS="2" , 1000 
160 IFB YS="3" , 2000 
170 IFBYS*"4", 3000 
180 IFB YS="5" , 4000 
185 IFBYS="6", 191 

190 G0T013O 

191 CLSsEND 



'ROTINA DESTINADA AO ARQUIVO DE COMUNICADOS- 



197 CLS s INPUT"QUAL A QUANTIDADE DE COMUNICADOS PARA ARQUIVAR ?"» 
Q 

200 F0RC=1T0Q 

210 CLSs INPUT"T0 RADIO ?";TRi(C> 

220 INPUT"DATE QSO ?";DT*(C) 

230 INPUT"TIME UTC ?";TUS(C) 

240 INPUT"2 UAY ?"-WWl(C) 

250 INPUT"RST SENT ?",RS*(C) 

260 INPUT"RST RECEIVED ?"-RR*(C> 

270 INPUT"M.H.Z. ?";MHS(C> 

272 INPUT"Q.R.A. ?";N5(C) 

274 INPUT"Q.T.H. ?";QT*(C> 

325 NEXTC 

326 CLS:FORA=lTOiOOsPRINTCHRi(23) ; 3256, "ARQUIVO COMPLETADO":NEXT 
ASGOTOIOO 

330 'sssssscsisazssssssssszsszsBicassssssssssssssszsssszsssszBBSss 

340 'FINAL DA ROTINA DESTINADA AO ARQUIVO DE C0MUNICAD0S==«==== 

350 r c = = r= = = rcna= = = = == = =:=====3=i:c===3c=E = = xz=c ====:caM====i:i:=l: = = = 

1000 'sSSSSSSZSSSSSSSaSSSSSSSSSSSSSCESXSS&SECBSSSSESSSSCSZSSBaBX 

1010 'ROTINA DESTINADA A GRAVAR DADOS EM DISCO 

1020 'zssssassssaaassssasaaaBaBssssaassasassBxasssasassssssasssa 

1030 CLS:INPUT"ENTRE COM 0 NOME DO ARQUIVO MAX 8 CARACTERES" ; ARS 
: ARS=LEFT% ( ARS , 8) 

1035 INPUT"QUAL A QUANTIDADE DE COMUNICADOS PARA GRAVAR ?",Q 
1040 0PEN"0" , 1 , ARS 
1050 F0RA=1T0Q 
1060 PR INTW1 , TRS ( A > 

1070 PRINTM1, DTS < A > 

1080 PRINTM1 , TUi(A) 

1090 PR INTW1 , UUS ( A ) 

1100 PRINTHi ,RS4(A) 

1110 PR INTM1 r RRS( A ) 

1120 PRINT Mi ,MH%( A> 

1122 PR INTMi , NS< A ) 

1123 PR INTMI , QTS( A) 

1140 NEXTA 

1150 CLOSENi 
1155 G0T0100 



1170 'FINAL DA ROTINA DESTINADA A ARQUIVO DE DADOS EM DISCO-— 

1 180 'caaaaaBaaaaBaaBCBraaaaaaaBasaBcaaaaEBaaaaaaaaazaaaaaaaa: 
2000 f ==s====s==aaa=a=:s=ss:==Eas==aaa=saa=a=asssa=ssss=ss==:: 

2010 'ROTINA DESTINADA A CARREGAR ARQUIVO DE DISCO 

2025 CMD"D:0 

2030 PRINT:PRI NT SPRINT: INPUT"ENTRE COM 0 NOME DO ARQUIVO MAX i 
ARACTERES" ; ARS : ARS=LEFTS ( AR 4 , 8 ) 

2035 CLSs INPUT"QUAL A QUANTIDADE DE COMUNICADOS PARA CARREGAR 
• Q 

2040 OPEN" I" , 2, ARS 
2050 F0RA=1T0Q 
2060 INPUTM2,TRS<A> 

2070 INPUT M2 , DTS ( A) 

2080 INPUTM2 , TUS ( A ) 

2090 INPUTM2 , WUt ( A) 

2100 INPUTM2, RSS(A) 

2110 INPUTM2 , RRS( A) 

2120 INPUT M2 , MH4 ( A ) 

2122 INPUTM2 , NS < A ) 

2123 INPUTM2 , QTS< A ) 

2130 NEXTA 

2140 CL0SEM2 
2255 G0T0100 

2270 ’cssaaaasBzaaaaasBsasasBBaaaBsaaaaaaaBaaaaaaassBBaaBsase: 

2280 'FINAL DA ROTINA DESTINADA A CARREGAR ARQUIVO DE DISC0=== 

2290 r =SSSBSBSSSBSBBSB8BBSBSSSSa3BSSSSSSSCSSSSSSSBZSSSSSSSSSS: 
3000 'SBBaBSBBSSZSSSSSSSSBZBSBBSSBBSSSSSSBaSBSSBSBBSSSSSSSSSa: 



3000 ' ZZZZZZBZZZZZZSSZZZZZSZZZZZZZZZaBZZZZaZZZZZZBBZZZSZSZZZaBBB 

3010 'ROTINA DESTINADA AO PREENCHIMENTO DE Q.S.L.s 

3020 '=3S;ZZSSSSSZZSBZZSZZZZBZZZZZZSBSZZZSSZZSSSSSZSaZZZZZSZ3ZZSS 

3030 CLS : PR INTCHRS ( 23 ) ; "PREENCHIMENTO DE QSLs." 

3040 PR INT3256 , "PREPARE A IMPRESSORA" 

3050 PRINTsPR INT"AP0S PREPARA-LA DIGITE <(C)>" 

3060 KHt= INKEYl 
3070 IFKH!="C" , GOT 03090 
3080 G0T03060 
3090 F0RA=1T0Q 

3110 LPR 1 NT"T0 RADIO : " • TR t ( A ) 

3140 LPRINT"DATE s " ; DTl(A> 

3170 LPR INTTAB < 0 ) ; "U . T . C" ; sLPR INTTAB ( 7 ) t "2-WAY" ; s LPR INTTAB ( 1 4 ) * " 
R . S . T" ; sLPR INTTAB ( 21 ) ; "M. H . Z" 

3180 LPRINTTAB(O) ;TU*(A> ; s LPR INTTAB ( 8 ) ;WW%(A) ; : LPR INTTAB < 14 > ,RS* 
(A) ; SLPRINTTAB ( 22) ; MHK A) 

3190 LPR INTTAB (0) • Nt ( A ) ; : LPR INTTAB ( 1 0 ) ;QTt(A ) ; 

3191 LPRINTJLPRINT 
3210 NEXTA 

3220 GOTOIOO 

3240 r BZrBSSBSS«ZSSSS*SBSBBSSaZSaSZSSSSaSSSSBBBBZBBSZSBESZBZBBaB 

3250 r FINAL DA ROTINA DESTINADA AO PREENCHIMENTO DE Q.B.Ls.===== 

32(^0 'aaassaaasaBsaszssssassscasaEascaasasaaaaasaaaszasaasaaaBas 
4000 'BZSBzazzszzaazBzzszzzzzaasszzBzzzszzzzzzzaaszszzzzazazzzsa 

4010 'ROTINA DESTINADA AO PREENCHIMENTO DE LIVRO DE REGISTRO 

4030 CLSSPRINTCHRK23) ; "PREENCHIMENTO DE LIVRO DE REGISTRO" 

4040 PRINT’ 256, "PREPARE A IMPRESSORA" 

4050 PRINTsPR INT"AP0S PREPARA-LA DIGITE <(C)>" 

4060 PY*=INKEY* 

4070 IFPYt="C" , G0T04090 
4080 G0T04060 

4090 LPR I NT"DATA INDICAT I VO QTR QRG EMISSAO 

-RST(R) RST(E)" 

4095 LPR INT sLPR INT 
4100 F0RA=1T0Q 

4110 LPR INTTAB ( 0 ) ; DTt < A ) ; s LPR INTTAB ( 12 ) ; TRl ( A ) ; : LPR INTTAB ( 26 ) ; TU 
%( A); SLPRINTTAB (34) -MHS( A); JLPR INTTAB (44) ;WU%< A) ? sLPR INTTAB ( 53 ) ; 
RRKA) ; SLPRINTTAB (65) ;RS*( A) 

4120 NEXTA 
4130 GOTOIOO 



'ROTINA DESTINADA AO PREENCHIMENTO DE LIVRO DE REGISTRO 



4160 'FINAL DA ROTINA DESTINADA A PREENCHIMENTO DE LIVRO DE REGI 
STRO DE COMUNICADOS 

4 170 r zx3sas = = = = sxs = = = = = = ZB = s=ssass = = s = = s=:=; = s = = = s = B:B = BZ = s=saKs:=s: 








Cobra 210 



C om uni a participa^ao tran- 
qiiila no mercado, repre- 
sentada por mais de 6 mil 
maquinas instaladas (so do mo- 
delo 305) e presenga consolida- 
da nos segmentos de minicom- 
putadores, micros para aplica- 
b5es comerciais pesadas e termi- 
nais para transcri^ao de dados, 
entre outros equipamentos, a 
Cobra volta-se agora para a pro- 
missora fatia das pequenas e ma- 
dias empresas, e profissionais li- 
berals mais sofisticados, com o 
lan^amento do microcomputa- 
dor Cobra 210. 

Menor, mais simples e barato 
que o 305, o best-seller da Co- 
bra s o 210 e, no entanto, tecno- 
logicamente mais desenvolvido 
que o seu antecessor e totalmen- 
te compativel com ele e demais 
computadores fabricados pela 
empresa, o que assegura ao usua- 
rio a possibilidade de migra^ao 
para maquinas maiores, a medi- 
da em que crescem as suas ne- 
ccssidades de processamento. O 
Cobra 210 utiliza os sistemas 
operacionais SOM, MUMPS e 
SPM (compativel com CP/M) 
e as linguagens COBOL I, LTD, 
LPS e FORTRAN IV (sob SOM); 
COBOL, ANS, LPS, FORTRAN 
IV e BASIC (sob SPM) e 
MUMPS. 

Alem de rodar os mais de 
150 aplicativos ja disponiveis 
para o 305 e qualquer programa 
compativel com o CP/M, o 210 
dispde ainda do Sistema de Pro- 
cessamento da Palavra - SPP — 
processador de textos desenvol- 
vido no Brasil e que atende a to- 
dos os requisitos especificos da 
lingua . portuguesa - e de uma 
serie de utilitarios para manu- 
ten?ao, conversao, edi?ao e tra- 
tamento de arquivos, emula^ao 
de terminals, formata^ao, inicia- 
liza^ao e back-up de discos, e 
software para emulagao de termi- 
nals de diversos fabricantes, per- 



mitindo a forma^ao de redes de 
computadores. 

Projetado para apli canoes 
profissionais em pequenas e me- 
dias empresas, o equipamento 
pode ainda ser utilizado em pro- 
cessamento distribuido e setorial 
em grandes organiza^oes, entra- 
da e comunicabao de dados, au- 
toma?ao de escritorios e proces- 
samento denti'fico. 

CONSTRUQAO MODULAR 

B aseado no microproces- 
sador Z80B, de 8 bits, 
com clock de 5,85 MHz 
(quase o dobro da velocidade do 
Cobra 305), o 210 permite ope- 
ragoes a nivel de bit, byte e pa- 
lavras, instru^des aritme'ticas, 
booleanas, de entrada/saida, 
transference, com paramo de va- 
lores etc. A memoria RAM, de 
64 kbytes, pode ser expandida 
ate 128 kbytes, enquanto que a 
memoria EPROM, contendo ro- 
tinas de autoteste automatico e 
carga inicial, 6 de 16 kbytes. O 
sistema dispde ainda de uma me- 
moria EEPROM de 64 bytes pa- 
ra parametros de configurable 
programaveis. 

Sua construbao e modular, 
apresentando gabinetes separa- 
dos para UCP/video, teclado e 
acionadores de disquetes. O vi- 
deo, de fosforo verde, tern 26 
linhas de 80 colunas, sendo uma 
linha reservada para exibibao de 
informaboes sobre o estado do 
sistema. No modo texto, os ca- 
racteres - ASCII e lingua portu- 
guesa, maiusculos e minusculos 
- sao form ad os por matriz de 
7x9 pontos. No modo semi- 
grafico a matriz d de 9 x 1 1 pon- 
tos. 

O teclado - padrao Cobra, 
com 88 teclas, numerico redu- 
zido e teclas de funjoes e spe- 
cials e de especificabSo de modo 
de operabao - e ligado a unida- 



de principal atraves de fio espi- 
ralado, o que possibilita major 
flexibilidade de posicionamento 
e comodidade do operador. A 
exemplo do video, permite a 
utilizabao de todos os caracteres 
ASCII e simbolos especificos da 
1 ingua portuguesa. 

O Cobra 210 pode trabalhar 
com ate quatro unidades de dis- 
quetes de 8”, face e densidade 
dupla, com capacidade total de 
4,8 Mbytes (1,2 Mbytes por dis- 
quete) e uma unidade de disco 
rigido winchester de 10 Mbytes, 
esta mediante o uso de uma pla- 
ca de expansao opcional com o 
respectivo controlador. 

A impressora e matricial de 
160 cps, com opbao de qualida- 
de carta para processamento de 
textos, e o sistema dispde de 
ate duas linhas de comunicabao 
padrao RS232 e velocidade de 
at£ 19200 bps. 

O novo micro da Cobra pos- 
sui ainda tres slots livres para 
placas de expansao , como o con- 
trolador de winchester (disponi- 
vel a partir do segundo semestre 
deste ano) e a via rapida (via de 
comunicabao tipo cabo coaxial 
com alcance de ate 300 metros), 
ja disponivel. Outras poderao 
ser desenvolvidas para diversas 
aplicaboes, entre elas, a de cole- 
ta de dados e pequenos contro- 
les de processo e a de video gra- 
fico. Ainda a respeito da via ri- 
pida, ela podera se constituir em 
futuro prdximo na base de uma 
rede local interligando varios 
micros e perif^ricos. A Cobra, 
apesar de nao dispor no momen- 
to de um produto acabado nes- 
se segmento, ja vem estudando 
essa possibilidade, seja atraves 
de desenvolvimento proprio ou 
por intermedio de empresas es- 
pecializadas, como a Cetus, com 
a qual ja vem mantendo enten- 
dimentos. 

Fruto de dois anos de pesqui- 



sa e desenvolvimento, o Cobra 
210 tern como uma de suas prin- 
cipals caracteristicas o fato de 
que toda a sua eletronica e mon- 
tada numa linica placa de circui- 
to impresso, o que permite maior 
facilidade e rapidez de manuten- 
jao. O projeto do 210 tambe'm 
ja incorpora as normas.de padro- 
nizabao de hardware estabeleci- 
das pelo protocolo Abicomp/ 
Serpro. Com isso, o equipamen- 
to desfrutara de compatibilidade 
a nivel de software aplicativo 
com os computadores de outros 
fabricantes que seguirem esses 
padroes. 

RETOQUES NO MARKETING 

A lem de modificaboes a 
nivel de produto - o 
210, por exemplo, que- 
bra o padrao de cor cinza-claro e 
cinza-escuro dos equipamentos 
da empresa, substituindo-o por 
um mais agradavel bronze egelo, 
e e o primeiro Cobra a falar BA- 
SIC - a empresa, para disputar 
o concorrido segmento dos mi- 
cros de menor porte, teve que 
fazer algumas alteraboes em sua 
filosofia de marketing para me- 
lhor adaptar-se as caracteristi- 
cas d esse mercado. 

£ o caso da politica de agen- 
tes - firmas autorizadas a reven- 
derem maquinas da Cobra - ,ini- 
ciada com o 305 e que devera 
ser incrementada com o 210. 
Tambe'm a exemplo do 305, a 
Cobra pretende incentivar as 
software-houses a produzirem 
programas para o 210. Qualquer 
empresa que ja tenha um produ- 
to para esses equipamentos ou 
pretenda desenvolve-lo recebera 
o apoio da Cobra, gar ante Marco 
Antonio Tiso, gerente para a 
area de microcomputadores. Es- 
sa ajuda. segundo ele, podera va- 
riar desde o oferecimento de 
tempo de maquina para o desen- 
volvimento, com a abertura de 
informaboes tecnicas sobre o 
computador, ate o auxilio a di- 
vulgabao do produto ou mesmo 
o credenciamento para a venda 
de hardware. 

Em sua configurabao mais 
simples, com memoria RAM de 
64 kbytes, dois disquetes de 8” 
e impressora matricial de 100 
cps, o Cobra 21C sera inicial- 
mente vendido por cerca de 1 
mil 100 ORTN. P 



err o 



MS 

N? 


NA PAGINA 


CORREQAO 


30 


48, no programa Um REM de Infinitos Bytes , 
terceira coluna, primeiro pardgrafo, entre parentesis, 
deve-se ler: 


(para evitar qualquer problema troque a linha 
5500 por GOTO 1030). 


32 


10, no programa A Rotina Aponta-erros, no quadro 
Analisando a rotina, corrigir a 20? linha para: 


... faz exatamente o que diz, ou seja, lista a linha 
numero XXXXX... 



72 
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A MICROCOMPUTADORES 
Compativeis com APPLE, 
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Temos programas comerciais. 

utilit^ros. educacionais, 
aplicativos e jogos novlssimos 
para APPLE II em Diskettes 
a partir de 15 mil 
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VENDA DE 

MICROCOMPUTADORES 
TK 83, 85, & 2000 COLOR 
CP 300, 500 & 600 
COLOR 64 (EXT. BASIC) 

SUPRIMENTOS 

Disquete fitas. form continuo 

CONSULTORIA DE SISTEMAS 

Diagnostico e apoio a decisao 

CURSOS E T REIN AMENT O 

Introdupao aos microcomputadores 
Lmguagem Basic 
Apltcabao dos micros 
na Engenharia 

Microcomputadores para crianpas 
INSCRICOES ABERTAS 
Livros e revistas especial izados 
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RUA AUGUSTA , 1371 - S/L 7 
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• COMPUTADORES TK 05 

• SOFTWARE 

LANQAMENTO 

TRANSFORME SEU TK 85 EM 
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E FINANCI AMENTOS " 

• 16 K • 

COMPATIVEL C/CP200 E RINGO R 470 

CONSULTAS OE REVENOEOORES 
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PARA 

PR0BLEMAS 

TECNIC0S 

USE 

ACABEQA 





PARA PROBLEMAS COM MATERIAL 0E 

DESENHO • PINTURA ENGENHARIA 
PAPELARIA ■ ESCRITORIO MAQUINAS PI 
ESCRITORIO E SUPRIMENTOS EM GERAL 
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LEBLON! 
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APROVEITE OS PREQOS 
•INCR1VE1S DA MIKROS” 
DO LEBLON, APOS SUA 
EPOCA DE IN AUGUR AQAO. 

• MICROCOMPLT ADORES 
Linhas Sinclair, TRS-80 e Apple, etc. 

• PERIFERICOS 

Impresso ras. videos, intesfaces, ere. 
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• SUPRIMESTOS 
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PROFISSIONAIS 
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PARA ATENDE-LO A 



O lugar compativel 
com voce e seu 
micro. 

— Micros 
— Acessorios 
— Software 
— Livros 
l^^--Revistas 



CURSO de 

BASIC 

No BASIC da Servimec voce usa constantemente 
o micro computador desde a 1* aula. 



Vantagens: 

Voc£ aprende os ptincipais co- 
mandos e lunpdes do BASIC, 
familiarira-se com o uso do mi- 
cro pessoal e aprende a lingua- 
gem BASIC de forma f Acil e fa- 
ctorial 

Venha para o BASIC da Servi- 
mec. 

As msenedes estSo abertas e 
as vagas sSo limitadas 12 alu- 
nos por micro). 



sobre cursos de Cobol. 
Digitacao e Cursos de fe 
nasemiulho 
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PROGRAMAS PARA APPLE 
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• Contabilidade Geral 

• Editor de Texto 

• Sistema de Arquivos 

• Mala Direla 

• Sistema Estatistico 

• Controle Bancano 

• Admimstrapao ImobiliSria 

• Sistema Btbliolecarto 
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• Utilitarios am Geral 

• Jogos Diversos 
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SOFTWARE 



Lobo e J. Eduardo. Trata-se de um 
jogo que exige inteligencia, paciencia 
e decisao e, como sugere a prdpria 
instru^So, e melhor mapear a regiao do 
conflito, pois caso contrdrio o jogo 
toma-se sem gra 9 a, com o jogador sem 
saber o que fazer e dando ordens a 
esmo ao computador. 

Na fita Aventura e Mist6rio, o jogo 
Sabotagem , ap6s uma bela apresenta^ao 
6 muito lento na distribu^ao de 
caixas dentro de um armazem que 
antecede o inicio da partida. Aldm 
disto, vale observar que a op 9 ao de 
jogar no papel do sabotador 6 bem mais 
interessante do que como guarda. 0 
jogo Aventureiro , que de aventuras nao 
tern muito. nos parece algo enfadonho. 
Ja o conhecido Mazogs e o melhor de 
todos os jogos das quatro fitas. Para 
quern nao conhece, trata-se de um 
labirinto onde o jogador deve achar um 
tesouro e sair ileso, apos enfrentar 
alguns monstros. A Piramide Inca e 
bastante interessante e divertida, e o 
USS Enterprise e razoavel, exigindo que 
se fa 9 am anota 9 oes, ja que e um jogo de 
a 9 §o mental. 

Patrulha Galdctica e a fita mais fraca. 
Nave Mae , apesar de ter tres m'veis de 
dificuldade e op 9 ao para jogar-se 
sozinho ou em dupla, nao chega a 
motivar. Em Galdctica , exige-se do 
jogador muito mais sorte do que 
inteligencia. Fungos Mutantes e bem 
interessante; SOS Vega III 6 o melhor 
jogo da fita, exigindo do jogador 
aten 9 ao e rapidez; e Perseguidor , 
tambem conhecido como Galactica nos 
fliperamas e como Galaxy na linha 
TRS-80, e fdcil e lento, sendo bom 
para aqueles que dao seus primeiros 
passos em videojogos. 

0 ideal seria se a JVA colocasse no 
mercado uma quinta fita com os cinco 
melhores jogos, o que beneficiaria 
aqueles que nao tern CrS 40 mil para 
adquirir toda a cole 9 ao, mas poderiam 
pagar mais que CrS 10 mil por uma 



CIBERNE 



SOFTWARE 



Diveriffo e alegria em cinco MnMCiorwii jogoi 
para o m micro. Um teclado ou joyitick. 

• CASCA A COBRA • FROGGER 

• CRAZY KONG • CENTOPEIA 

• SUCURI 



16 K RAM 

TK82/83/85, CP-200 • compatfveti 



AVENTURA <fc MISTERIO J 



Prove toa tnieugtncia • agilidada tamando 
veneer 01 obsttculot deitat cinco detrizantes 
aventurat. Um teclado ou joystick. 

• SABOTAGEM • PIRAMIDE INCA 

• O AVENTUREIRO • USS ENTERPRISE 

• MAZOGS 



CIBERNE 



ocorre. Esta novidade faz com que os 
jogos se tomem bem mais emocionantes, 
principalmente quando se usa o 
joystick. 

Cada fita vem com cinco jogos, e dentre 
eles ha alguns ja bastante famosos, como 
o Enterprise. Mazogs, Crazy Kong e 
Frogger. Uns trazem as suas 
instru 9 oes no proprio programa, o que 
facilita a leitura, embora alongue o 
carregamento. Os textos sao bons e, no 
caso dos traduzidos, nao foi encontrada 
nenhuma expressao absurda, embora 
alguns deslizes de Portugues como 
escole, ao invds de escolhe, ou 
infelismente, apesar de nao 
comprometerem. prejudiquem a 
apresenta 9 ao dos jogos, cujos desenhos 
sao sempre muito bonitos. 

Outra caracteristica das fitas e que os 
jogos em geral foram dispostos em 
ordem crescente de dificuldade, o 
que e bom, pois nao causa frustra 9 §o 
ao usuario, apos divertir-se com um 
jogo dificil. Ja o intervalo de grava 9 ao 
entre um jogo e outro e muito 
pequeno, o que dificulta a busca dos 
jogos quando nao se quer seguir a 
ordem da fita. 

Alguns programas respondem com 
muita lentidao ao comando, o que 
poderia ser contornado com uma 
programa 9 ao mais agil. 0 caso mais 
flagrante e encontrado no jogo Frogger , 
cuja proposta 6 fazer com que um 
sapo atravesse uma rua bastante 
movimentada e, logo depois, um rio, 
pulando sobre toras. Como a 
resposta ao comando do usuario 6 
lenta, a travessia da rua acaba por 
tornar-se exaustiva, tantas as vezes que 
o sapo e atropelado. 

Apesar da lentidao do Frogger , a fita 
onde este jogo se encontra, Bichos & 
Cia., d a melhor em termos de conjunto. 
Os outros jogos da fita sao Casca, a 
Cobra ; Crazy Kong, velho conhecido 
dos fliperamas; Sucuri , o melhor jogo da 
fita, com um belo visual (a cobra vai 
crescendo a cada alimento ingerido, 



C om a prolifera 9 ao dos 
microcomputadores, o 
mercado de videojogos tomou 
se um alvo irresistfvel aos 
“piratas” e sua produ 9 ao caseira de fitas 
xerocadas. Apos a euforia inicial, porem, 
o usuario tornou-se mais exigente e, 
para atende-lo, surgiram empresas serias, 
algumas pequenas e independentes, que 
estao comercializando jogos bem 
gravados, bem apresentados e contando 
ate com criagdes originais. Este 6 o 
caso da JVA Microcomputadores que, 
atraves da sua marca Ciberne 
Software, acaba de lan 9 ar no mercado 
cinco fitas, sendo quatro de jogos 
e uma de utilitdrio. 

Concebidas para equipamentos da 
linha Sinclair, com um mini mo de 16 
K RAM (TKs 82, 83 e 85, CP-200 e 
Ringo), as fitas foram gravadas pela 
PolyGram. nao tendo sido 
verificados, em nenhuma delas, 
problemas de leitura. Elas custam em 
media CrS 10 mil cada uma, vem 
lacradas e as embalagens tern 
acabamento profissional. 

As instates e que, embora nao 
deixem duvidas, foram impressas em 
letras muito pequenas. podendo 
provocar uma certa dificuldade. Nas 
fitas de jogos isto nao 6 tao grave, mas 
na de utilitario seria conveniente a 
impressao de um folheto a parte, 
uma vez que o usudrio necessita 
recorrer as instates com mais 
freqiiencia. 



SOFTWARE 



16K RAM 1 

TK62 83 ; 85. CP 200 e compativeul 



fita realmente sensacional. Sem sombra 
de duvida, esta fita conteria Polaris e 
Duelo , da fita Combate; Mazogs, da 
Aventura e Mistdrio ; Sucuri, da Bichos 
& Cia.; e SOS Vega III , da Patrulha 
Galdctica. 



um comando para criar lirihas REM, aldm 
de alguns erros de disassemblamento 
terem sido corrigidos do original. 

Outro exemplo i o Comando Copy, 
para tirar copia do que estiver no video 
para a impressora. 

O problema da fita, pordm, sao as 
instru 9 des, que alem do tamanho da letra, 
muito pequena, dificultando a leitura, 
deixam o usuario sem saber exatamente 
ate onde vai a capacidade dos 
programas. Com isso, toma-se 
indispensavel para quern for utilizar a 
fita ter algum conhecimento de 
Assembler e mesmo de organiza 9 ao do 
sistema operacional dos equipamentos. 



Um o teclado ou o joystick a teste o mu sangye 
Irio nestes cinco excitantes jogos de guerra. 

• NIGHT GUNNER • DUELO 

• POLARIS • SCRAMBLE 

• ALERTA VERMELHO 



UTILITARIO 

A outra fita da JVA. tamhem 
comercializada com a marca Ciberne 
Software e com pre 9 o semelhante as ue 
jogos, traz tres excelentes utilitdrios. 
Com o nome de ROT II, ela vem com 
um compilador Assembler, um 
disassembler e um compilador BASIC. 
Todos os tres utilitarios sao baseados em 
similares estrangeiros, mas possuem 
implementa 9 oes bastante interessantes. 
Um exemplo 6 o disassembler, que foi 
baseado no ZXBUG, da Artie Computing 
mas entre as implementa 9 oes esta 



16 K RAM 

TK82/83/8S, CP-200 e compel iveis 



Com acabamento profissional 
as novas fitas reeditam 
antigos sucessos e lanpam 
originais brasileiros 



As fitas da empress JVA foram 
analisadas no CPD de MICRO 
SISTEMAS. Texto final: Lucio Santos 



dificultando a sua movimenta 9 ao); 
e a Centopeia, que se divide em duas ao 
ser atingida no meio. Em todos os 
jogos pode-se usar o joystick. 

A fita Combate, ao contrario, nao 
aceita o joystick, o que e decepcionante, 
tendo em vista que sao todos jogos de 
estrategia e a 9 ao. Night Gunner tern 
movimenta 9 ao um pouco confusa; 
Alerta Vermelho 6 um bom jogo; 
Scrambler exige a utiliza 9 §o 
simultanea de oito teclas (em cima, 
em cima a esquerda, em cima a direita 
etc.), o que o toma um pouco 
complicado, exigindo do usuario uma 
habilidade motora espetacular. Neste 
caso e inconcebivel a nao utiliza 9 ao do 
joystick. Os destaques vao para Duelo, 
muito enfadonho quando jogado contra 
o computador, mas bem interessante 
quando disputado a dois; e e 6timo o 
Polaris , uma cria 9 ao dos brasileiros A.C. 



OS JOGOS 

As quatro fitas de jogos, embora 
denominadas lan 9 amentos, possuem 
muitos que jd sao conhecidos. Convem 
salientar que todas elas sofreram 
implementa 9 oes nos originais 
estrangeiros e alguns jogos sao 
cria 90 es originais. Um ponto a 
ressaltar e que alguns deles permitem 
a 9 oes simultaneas, como atirar e se 
movimentar, o que normalmente nao 



Gerador EletrOnico 



Estabilizador EletrOnico 

mini 



Linha Especial para Micros 

Protepk) compieta para o seu micro, 
manlertdo a alimentacao altamente 
estavel e sem mterruptao Forma de 
onda senoidal Capacidades de 0 25. 0 4. 
0 6. 1.1 5. 2.5. 3.5 e 5 KVA Opera com 
quatro baterias comuns de 12 volts 



Protecao ullra-rapida contra vanacoes 
^ da tensao da rede em ate ± 22% 
estabilizando-a em ^ 1%. 

Capacidade de 
^ ^ 0 25.04.06.08 

e 1 KVA 
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Protepao integral para o seu Micro 







Experimente a sen saga o de estar na quarta dimensao. Sera que voce conseguira permanecer 
Id por muito tempo? Aceite o desafio e teste o seu "folego" no seu PC- 1211 



Perdidos 

na quarta dimensao 

Jose Alexandre Dell' I sola 



190: PAUSE " 

DIGITE 

195 .-PAUSE "C P/C 
ONTINUAR EM 

frente; " 

200: PAUSE "D P/ 
IR A DI REIT 

a; " 

205: PAUSE "E P- 
IR A ESQUER 
DA5 " 

210: PAUSE "T Ps 
IR PARA TRAZ 
; " 

215: PAUSE "Cl P 
/ IR PARA Cl 

ma; " 

220: PAUSE "BA P 
/ IR PARA BA 
1X01 " 

225: PAUSE "S PA 
RA PARAR!" 
230: INPUT "QUAL 
E 0 COMANDO? 

M $M*:G0T0 2 
40 

235: INPUT "OUTRO 

comando= m ;m 

$: K=K+750 



240: IF M$="C" 
GOTO 235' 
245: IF M*="B" 
GOTO 400 
250: IF M$="E" 
GOTO 235 
255: IF M*="T" 
GOTO 400 
260 : IF M$="S" 
GOTO 400 
265: IF M$="CI" 
GOSUB 800 
270: IF M*="BA" 
GOSUB 800 
275: GOTO 235 
400: PAUSE "VOCE 
F 0 1 TRAGADO 
POR UM" 

401: PAUSE " C 
AMPO HE FORC 
A! " 

402: PAUSE " 

405: PAUSE " 

X " 

410: PAUSE " 

* *" 
415: PAUSE " 

* * 



420: PAUSE "* 

*" 

430: PAUSE " N 
AVE DESTRUID 
A " 

500: BEEP 1 
501: BEEP 3 
502: BEEP 2 
503: PRINT "TOTAL 
BE PONTOS=" 

;k 

504: END 

800 : INPUT "ESCOL 
HA NUM.BE 1 
A 9**1 L: GOTO 
810 

805: INPUT "OUTRO 
NUM.BE 1 A 
9=" 5 L: K=K+10 
00 

810: IF L<=3G0T0 
805 

815: IF L=5PAUSE 
" V. 'v'OLTOU AO 
PLANET A ! " : 
GOTO 5 
820: RETURN 



km/s, gastando todo o combust ivel res- 
tante. 

4? objetivo - Manter-se na quarta di- 
mensao o maior niimero possivel de jo- 
gadas atravds de comandos fornecidos 
no visor (cuidado, pois voce poder2 vol- 
tar ao planeta conforme o comando). 
Ao final, voce receberd o total de pon- 
tos obtidos na partida. 



observances 



• Toda vez que estiver imprimindo algo 
no visor, ap6s ter lido e memorizado, 
lembre-se de apertar a tecla ENTER. 

• A contagem de pontos 6 feita da se- 
guinte maneira: 

a) a cada jogada, para sair da 6rbita do 
planeta, voce receberd 75 pontos; 

b) se conseguir sair da drbita voce re- 
cebera 150 pontos; 

c) se conseguir passar para a quarta di- 
mensSo recebera 500 pontos; 

d) a cada comando voce recebera 750 
pontos; 

e) a cada escolha de numero (na quarta 
dimensao) voce recebera 1000 pontos. 

• Para comet^r o jogo, coloque o com- 

putador no modo DEF e aperte as te- 
clas SHIFT e J. B 

• Boa sorte! at 



Q uarta Dimensao 6 um jogo 
que depende de muita sorte e 
raciocinio 16gico. Escrito para 
o computador de bolso PC- 
1211 Sharp, usa 1418 passos 
e todas as 178 mem6rias, sendo, por 
isso, indispensivel que nfo haja nenhum 
outro programa na mem6ria interna da 
miquina. 

0 jogo £ composto de vdrios objeti- 
vos, mas o principal e tentar permanecer 
o maior tempo possivel na quarta di- 
mensao. Para tal, voce recebera uma na- 
ve sem combust ivel em um planeta ima- 
ginario, tendo que: 

19 objetivo — Adquirir grande quantida- 
de de combust ivel para a viagem (na ba- 
se da sorte). Voce digitara um numero 
qualquer e, atraves de uma somat6ria de 
numeros aleatbrios, recebera o combus- 
tfvel total. 

29 objetivo - Sair da drbita terrestre 
sem gastar todo o combust ivel, fazendo 
o maior numero possivel de jogadas (pa- 
ra cumular pontos). Voce recebera a al- 
tura da nave, sua velocidade e o combus- 
t ivel restante, e devera digitar o combus- 
tivel perdido. Aten^o, pois voce s 6 sai- 
ra da drbita quando atingir uma altura 
maior ou igual a 5.000 m ou velocidade 
maior ou igual a 3.500 km/s. 

39 objetivo — Passar para a quarta di- 
mensao. Para isso voce tera que atingir 
velocidade superior ou igual a 5.000 



i— n 




Quarta dimensao 





l: " J": K=0 
5: V=0: H=0: X= 0 
10: INPUT "BE-ME 
SEU NOME'-TL 
ETRAS)"; A$ 
12: PAUSE A* 

15: INPUT "ESCOL 
HA UM NUMERO 
= > "52 

20: X=ABS (500+X 
-Z) 

25: E=E3 

30: FOR A=1T0 5 

35: E=23*X 

40 : X=B- I NT <B/E 

>*E+X 

45: PAUSE X 
50: NEXT A 
55: PRINT "C0MEU 
STIVEL=" 9 X 
65: PAUSE "ALTUR 

a= h ;h 

70: PAUSE "VEL0C 
IDABE=" > V 
75: PAUSE "COMBU 
STIVEL=" ; X 
80: K=K+75 



85: IF X<=0G0T0 
140 

90: INPUT "COMPU 
ST IVEL PERDI 

bo=" ; p 

95: IF P>XLET P= 
0 

1 00 : X=X-P : 0=P- 1 0 
0 

105: H=H+V+0/2: V= 
V+0 

110: IF H>=50Q0 
GOTO 150 
115: IF V >=3500 
GOTO 150 
120: IF H>=0G0T0 



65 


130: PAUSE 


"ALTUR 


a= m ;h 


135: PAUSE 


"VELOC 


IBADE= 


" ; V 


140: PAUSE 


"COMBU 



STIVEL=" 5 X 
145: PRINT " HAO 
CONSEGU I U S 
AIR!": GOTO 5 
00 



150: PAUSE " ESCA 
POU BA GRAVI 
BABE ! " : K=K+1 
50 

155: PRINT "COMBU 
ST IVEL" >X 
160: INPUT "GASTE 
TOBO COMBUS 
TIVEL-'SC 
165: V=V+C*5 
170: IF V >=5000 
GOTO 185 
175: PAUSE " NAO 
CONSEGU I U C 
HEGAR" 

180: PAUSE " A 
QUARTA BIMEN 
SAG!": GOTO 5 
00 

135: PRINT "VELOC 
IBABE=" j V: K= 
K+5QQ 

187: PAUSE " PA 
SSOU p/ A QIJ 
ARTA " 

138: PAUSE " 

DIMENSAO ! 




O unico terminal teleimpressor fabricado no Brasil 

A ISA, Industria de Impressoras S/A, acaba de lanqar o 
primeiro teleimpressor genuinamente brasileiro. Sua alta 
tecnologia eletronica, prova na pratica sua capacidade 
de trabalho. Imprime por matriz de pontos 9x7. 
permitindo ate 8 copias impressas. com uma 

velocidade de 100 C.P.S. Equipado com "f" /.j*'-® 1 

memoria standard de 2 K caracteres, ^ •? 

utilizando formulario continuo, 
folhas soltas ou bobina de papel. 

De 64 ate 132 caracteres por ‘ 

linha, com interface serial .. . ‘ 

RS 232 elo de corrente e , 

paralelo. Sua velocidade , i 

de comunicaqao e de 
50 a 9.600 B.P.S. 

tipos de - ' -1: ■ * 

impressao. x 



Conheca mais 
detalhes do 
Teleimpressor 
KSR na 



INOUSTRIA DE IMPRESSORAS S.A. 
Escritorio: 

R. Prol. Jose Marques da Cruz, 234 
Fabrics. 

Rua Centro Atricana. 74 
Tels : (01 1)240 2442 543 4939 
Telex: (01 1)36926IIIM 8R 
Sao Paulo - S.P. 



SJSTf MA DC PftOCCSSAMCNTO DC DADOS C U IICOMUMIC A v OC S 

MATRIZ: Rio de Janeiro - R. Republica do Libano. 61 ■ 12.° and. 

Tel. (021) 221 4677 Telex (021) 30187 
FILIAIS: S Paulo R. Frei Caneca. 1119 Tel.: (011) 284 831 1 Telex (01 1) 22191 
Brasilia SCS 02 BlocoCn.° 41 SL.01 Tel : (061) 225 1588 Telex (061) 1750 
Porto Alegre Rua Santa Terezinha. 300 • Tel. :(051)32 3564 • Telex (051)2144 

Goiania - Belo Horizonte Salvador 
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SINCLAIR 




Se voce tem pequenas rotinas e programas utilitirios 
reaimente Gteis tomando poeira em seusdisquetes ou fitas 
cassetes, antecipe-se aos piratas e trate de divulg^-los. En- 
vie-os para a REDAQAO DE MICRO SISTEMAS -SEQAO 
DICAS: Av. Presidente Wilson, 165/grupo 1210, Centro, 
Rio de Janeiro, RJ, CEP 20030. Nao se esque^a de dizer 
para qual equipamento foram desenvolvidos. Desta forma, 
sua descoberta poderS ser util para muitos e muitos, em 
vez de desmagnetizar-se com o tempo em suas fitas e dis- 
quetes... 



TRS-80 



Tela piscante 

Incremente seus programas criando um efeito de pisca- 
pisca na tela. 

10 CLEAR 2000:DEFINT I 

20 IF PEEK < 16396) < >201 THEN DEFUSR=32000 
ELSE POKE 16526, 0:P0KE 16527,125 
30 FOR 1=32000 TO 32016:READ Y:P0KE I,Y:NEXT 
40 X=USR (0) :G0T0 40 

50 DATA 33,0,60,54,191,17,1,60,1,255,3,237, 
176,205,201 , 1,201 



Acelerando o SLOW 

Execute seus programas em BASIC numa velocidade 
maior que em SLOW, ou entao use esta rotina como 
um efeito visual : 



16514 

16522 

16530 

16538 

16546 

16554 

16562 

16570 



FD CB 
21 8E 
19 3E 
02 CD 
C3 A4 
C6 C2 
CD 20 
A4 02 



3B F6 
40 C9 
F5 CD 
20 02 
02 D3 
32 28 
02 DD 



CD 07 
ED 5F 
B5 02 
DD 21 
FD 3A 
40 CD 
21 8E 



02 DD 
01 01 
CD 92 
A 5 40 
28 40 
92 02 
40 C3 



Para utilizar esta dica,de RAND USR 16514;e para 
fazer com que o micro volte ao estado normal, basta te- 
clar qualquer uma destas instrufOes: FAST, PAUSE, 
COPY, LLIST ou LPRINT. 

Depois de colocar esta dica no seu equipamento, tes- 
te a diferen 9 a com este programa: 

10 SLOW 
20 GOSUB 100 
30 RAND USR 16514 
40 GOSUB 100 

50 IF INKEY%="" THEN GOTO 50 
80 COPY 
90 STOP 

100 FOR A=1 TO 30 

110 PRINT AT 10 y 15;A-" " 

120 NEXT A 
130 RETURN 



Paulo de Tarso Cardoso de Almeida — SP 



Marcos Portnoi — BA 
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Desvio conditional otimizado 

Economize memdria e tempo de execu 9 ao em seus 
programas, agilizando os desvios condicionais com a 
seguinte tdcnica: 
onde houver desvios do tipo 

10 INPUT A 

20 IF A=2 THEN GOTO 200 
30 IF A=3 THEN GOTO 300 
40 if A=4 THEN GOTO 400 

use recursos como 

10 INPUT A 
20 GOTO A*1 00 



Linha TRS-80 (I) 



Desative o RUN e o LIST 

Uma boa forma de proteger seus programas 6 desativar o 
RUN dando um POKE 17128JM (sendo N um numero qual- 
quer entre 1 e 255). Assim, o computador acusara erro de 
sin tax e quando algum pirata tentar dar um RUN no seu 
programa. 

Outro macete 6 bagungar o LIST com um POKE 171 29,N 
(tendo N qualquer valor diferente de 239) ou com POKE 
17130 ,N (N diferente de 66 ),pois com isso o olheiro nao 
vai entender nada quando der um LIST. Pode-se ainda con- 
seguir o mesmo efeito colocando o valor 255 nos endere^os 
de 17129 ate 17132, mas este metodo tem restr^Qes por- 
que nfo pode ser usado em um programa que use um GO- 
TO de uma linha maior para uma linha menor. 

£ importante, para maior seguran?a, testar esses endere- 
90 s antes do POKE com o PEEK, pois esses valores podem 
ser diferentes no seu equipamento. 



Alessandro Zimmer-PR 



Josd Ronaldo dos Reis — SC 
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Memorizando a tela 

Use esta rotina para arquivar uma tela de video numa varilvel String: 

10 CLEAR 3000SDEFINT l:DIM VIDEO* ( 1 023 ) 
2 O’ FOR 1 = 15360 TO 16383 
30 VIDEO* < I-1536Q)=CHR*(PEEK ( I ) ) 

40 POKE I y 95 

50 POKE I y ASC(VIDE0$< 1-15360) ) 

60 NEXT 



Para recuperar a imagem, digite: 

70 CLS s FOR 1 = 0 TO i023 = PRINT VIDE0*(I); 
2 NEXT 



Marcos Portnoi — BA 
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Rapidez em 
longos REMs 

Para digitar linhas REM com mui- 
tos caracteres em suas rotinas em lin- 
guagem de mlquina, use este artificio 
e ganhe mais tempo e seguran 9 a: 

i PRINT 7+8+8+8+8. . . +8+8 

Rode esta linha e saiba a quantida- 
de de bytes que estao disponiveis na 
linha 1 (cada + 8 equivale a 8 caracte- 
res). Para substituir PRINT por REM, 
digite POKE 16513,234. 



Dal vino Francisco Salvador — SC 
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Teste a mira 

Treine sua pontaria tentando acertar o alvo que estl 1 direita neste programa em BASIC. Depois de digitl-lo, 6 
s6 esperar atd que a barra da esquerda atinja a altura certa e atirar (pressionando qualquer tecla). 



CLS s X=RND ( 45 ) : SET <127 y X) 

FOR A=47 TO 0 STEP -1 2 SET <0 y A) 2 FOR B=1 TO 10 
IF INKEYS="" NEXT 2 PRINT "PERDEU SUA CHANCE. . . " y - 
FOR B=0 TO 127 2 SET ( B r A ) 2 NEXT 
IF A=X PRINT ''NO ALVO." ELSE PRINT "ERRROOOUUUUU . 
IF INKEY*="" 60 ELSE RUN 



NEXT 
GOTO 60 



Linha 



SINCLAIR 



CLS rapido 
apos SCROLL 

Nao perca tempo esperando a 
execu 9 ao de um CLS ap 6 s o uso 
de instru 9 oes SCROLL: impe 9 a 
que o arquivo de video (D-FILE) 
passe para o modo reduzido. Para 
isso, imprima um caracter qualquer 
(ou espa 9 o vazio) na ultima posi- 
9 ao de cada linha (TAB 31), logo 
ap 6 s um SCROLL. 



Para tornar este jogo mais interessante, teste a sua imagina^o incremen- 
tando-o com uma apresenta 9 ao, efeitos sonoros, contadores, mensagens, re- 
cordes... 



Rena to Degiovani — RJ 
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Agilize o CLS 



Reduza o tempo de apagar a tela com o CLS usando esta dica: 

1 LET FP=PEEK 1 6396+256*PEEK 16397-16509 

2 POKE 16389 , I NT (FP/256) 

3 POKE .16388 y FP-INT (FP/256) x 256 

£ interessante observar que haverl uma pequena demora na forma 9 ao 
da imagem. 



Dal vino Francisco Salvador — SC 












ono oni o'oo oooo noo tin 
1000 0010 
^1000 MOO 



Curso de 
Assembler - XVII 



N 

^ esta li?ao vaxnos abordai um grupo de instrugdes pouco uti- 
lizado, porem de grandes recursos para a elabora^ao de program as. Esta- 
mos f aland o do grupo de ROTAlt e SHIFT. Passemos entao a descri- 

f o destas instrufSes. 

— Rota^ao Circular do Acumulador a Esquerda 
Formato: RLCA 

Opera f do: O conteudo de cada bit do Acumulador e movido para o bit 
a sua esquerda. 

Cddigo objeto: 



RLCA 




Descrifao: O conteudo do Acumulador (registrador A) e rotacionado pa- 
ra a esquerda: o conteudo do bit 0 e movido para o bit 1 , o conteudo 
anterior do bit 1 4 movido para o bit 2 , e este padrao e repetido para 
todos os bits do registrador. O conteudo do bit 7 4 copiado na Carry 
Flag ( Flag C do registrador F), assim como no bit 0. 

Ciclosde mdquina (MJ: 1 
States (T): 4 

Flags afetadas: S — nao afetada; 

Z — nao afetada; 

H - ressetada; 

P/V - nao afetada; 

N - ressetada; 

C — bit copiado do bit 7 do Acumulador. 

Exemplo: Se o conteudo do Acumulador 6 




ap<5s a execugao da instrugSo RLCA o conteudo da Carry Flag serf 1 e 
o conteudo do Acumulador sera: 




2 - Rotagao do Acumulador a Esquerda 
Formato: RLA 

Operafao: O conteudo de cada bit do Acumulador 4 movido para o bit 
a sua esquerda. 

Cddigo objeto: 



RLA 




Descrifao: O conteudo do Acumulador (registrador A) 4 rotacionado 
para a esquerda: o conteudo do bit 0 4 movido para o bit 1 , o conteudo 
anterior do bit 1 e movido para o bit 2, e este padrao 4 repetido para to- 
dos os bits do registrador. O conteudo do bit 7 4 copiado na Carry Flag 
( Flag C do registrador F) e o conteudo anterior da Flag Carry 4 copiado 
no bit 0 . 



Ciclosde mdquina (Mj: 1 
States (T): 4 

Flags afetadas: S - nao afetada; 

Z - nao afetada; 

H - ressetada; 

P/V - nao afetada; 

N - ressetada; 

C - bit copiado do bit 7 do Acumulador. 

Exemplo: Se o conteudo da Flag Carry 4 1 e o conteudo do Acumula- 
dor 6 




ap<Ss a execugao da instrugao RLA o conteudo da Carry Flag sera 0 e 
o conteudo do Acumulador sera: 




3 - Rotagao Circular do Acumulador a Direita 
Formato: RRCA 

Operafao: O conteudo de cada bit do Acumulador e movido para a sua 
direita. 

Cddigo objeto: 

RRCA 




Descrifao: O conteudo do Acumulador (registrador A) e rotacionado 
para a direita : o conteudo do bit 7 6 movido para o bit 6 , o conteudo an- 
terior do bit 6 6 movido para o bit 5, e este padrao e repetido para to- 
dos os bits do registrador. O conteudo do bit 0 e copiado na Carry Flag 
(Flag C do registrador F), assim como no bit 7. 

Ciclos de mdquina (MJ: 1 
States (T): 4 

Flags afetadas: S — nao afetada ; 

Z - nao afetada; 

H - ressetada ; 

P/V - nao afetada; 

N - ressetada; 

C - bit copiado do bit 0 do Acumulador. 

Exemplo: Se o conteudo do Acumulador e 




apos a execugao da instrugao RRCA o conteudo da Carry Flag sera 1 e 
o conteudo do Acumulador sera: 




4 - Rotagao do Acumulador a Direita 
Formato: RRA 
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Operafao: O conteudo de cada bit do Acumulador e movido para o bit 
a sua direita. 

Cddigo objeto: 

RRA 




Descrifao: O conteudo do Acumulador (registrador A) e rotacionado 
para a direita: o conteudo do bit 7 6 movido para o bit 6 , o conteudo 
anterior do bit 6 e movido para o bit 5, e este padrao 6 repetido para 
todos os bits do registrador. O conteudo do bit 0 e copiado na Carry 
Flag ( Flag C do registrador F) e o conteudo anterior da Flag Carry 6 
copiado no bit 7. 

Ciclosde mdquina (MJ: 1 
States (TJ: 4 

Flags afetadas: S - nao afetada ; 

Z - nao afetada; 

H - ressetada; 

P/V - nao afetada; 

N - ressetada; 

C - bit copiado do bit 0 do Acumulador. 

Exemplo: Se o conteudo da Flag Carry e 0 e o conteudo do Acumula- 
dor e 



H - ressetada; 

P/V - setada se a paridade 6 par, senao 4 ressetada; 
N — ressetada; 

C - bit copiado do bit 7 do registrador fonte. 
Exemplo: Se o conteudo do Acumulador 4 




apos a execugao da instrugao RLC a o conteudo da Carry Flag seri 1 e 
o conteudo do Acumulador sera: 




6 - Rotagao Circular a Esquerda de Registrador Indexador 
Formato: RLC (IX+d) 

RLC (IY+d) 

Operafao: O conteudo de cada bit do enderego de memoria especifica- 
do pelo registrador indexador 6 movido para o bit a sua esquerda. 
Cddigo objeto: 



RLC (IX+d) ou RLC (IY+d) 




apos a execugao de RRA o conteudo da Carry Flag sera 1 e o conteudo 
do Acumulador seri: 




5 - Rotagao Circular de Registrador a Esquerda 

Formato: RLC r 

Operafao: O conteudo de cada bit do registrador especificado na ins- 
trugao 4 movido para o bit a sua esquerda. 

Cddigo objeto: 





RLC 


r 




1 


' 

1 0 

4 


— 

0 


1 — 1 1 

10 11 

1 1 ■ 


0 


0 0 

1 


0 


0 r r r 

1 » 1 



onde itt pode assumir os seguintes valores: 



000 


para 


rrr 


= 


registrador 


B 


00 1 


p a r a 


rrr 


= 


registrador 


C 


0 1 0 


p a r a 


rrr 


= 


registrador 


0 


0 1 1 


p a r a 


rrr 


= 


registrador 


E 


100 


para 


rrr 


= 


registrador 


H 


1 0 1 


para 


rrr 


= 


registrador 


L 


1 1 0 


para 


rrr 


= 


posigao de 


memoria (HL) 


1 1 1 


para 


rrr 


= 


registrador 


A 



Exemplo: 



RLC D 




onde r pode assumir os seguintes valores: 




Descrifao: O conteudo da posigao de memdria especificado pela soma 
do conteudo do registrador indexador (IX ou IY) com o deslocamento 
d em complemento de 2 4 rotacionado para a esquerda: o conteudo do 
bit 0 4 movido para o bit 1 , o conteudo anterior do bit 1 4 movido para 
o bit 2 , e este padrao e repetido para todos os bits. O conteudo do bit 7 
4 copiado na Carry Flag (Flag C do registrador F), assim como no bit 0. 
Ciclos de mdquina (MJ: 6 
States (TJ: 23(4,4,3,5,4,3) 

Flags afetadas: S — setada se o resultado 4 negative, senao 4 ressetada; 

Z - setada se o resultado 4 zero, senao 4 ressetada; 

H - ressetada ; 

P/V - setada se a paridade 4 par, senao 4 ressetada; 

N - ressetada; 

C - bit copiado do bit 7 do enderego fonte. 

Exemplo: Se o conteudo do registrador IX 4 1000H e o conteudo do 
enderego de memoria 1002H 4 




ap 6 s a execugao da instrugao RLC (IX + 2) o conteudo da Carry Flag 
sera 1 e o conteudo de memoria especificada sera : 



Descrifao: O conteudo do registrador especificado na instrugao e rota- 
cionado para a esquerda: o conteudo do bit 0 4 movido para o bit 1, o 
conteudo anterior do bit 1 4 movido para o bit 2, e este padrao e repe- 7 _ Rotagao a Esquerda 

tido para todos os bits do registrador. 0 conteudo do bit 7 4 copiado na Formato: RL m 

Carry Flag (Flag C do registrador F), assim como no bit 0. Operafao: O conteudo de cada bit do operando m 4 movido para o bit 

a sua esquerda. 

Cddigo objeto: 

RL r 



Flags afetadas: S - setada se o resultado 4 negative, senao e ressetada; 

Z - setada se o resultado 4 zero, senao 4 ressetada; 
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CURSO DE ASSEMBLER - XVII 



RL (HL) 




onde rrr pode assumir os valores que estao na figura 1 . 

Descrifdo: O conteudo do operando m 6 rotacionado para a esquerda: 



000 


para 


rrr 




registrador 


B 


00 1 


para 


rrr 


= 


registrador 


C 


0 1 0 


para 


rrr 


= 


registrador 


D 


01 1 


p a r a 


rrr 


= 


registrador 


E 


1 00 


para 


rrr 


s = 


registrador 


H 


101 


para 


rrr 


= 


registrador 


L 


1 1 1 


para 


rrr 


2 


registrador 


A 



Figura 1 



0 conteudo do bit 0 6 movido para o bit 1 , o conteudo anterior do bit 

1 6 movido para o bit 2, e este padrao 6 repetido para todos os bits. 0 
conteudo do bit 7 6 copiado na Carry Flag ( Flag C do registrador F) e 
o conteudo do anterior da Carry Flag 6 copiado no bit 0. 



IKSTRUCA0 CICLOS DE mAQUINA(N) STATES(T) 


RL r 


2 


»(*,*) 


RL (HL) 


A 


15(A,A,A,3) 


RL ( IX*d) 


6 


23( A, A , J, 5,%, 3) 


RL ( I V ♦ d ) 


6 


2J(A,A,3,5,A, 3) 



Flags afetadas: S - setada se o resultado 6 negative, senio l ressetada; 

Z — setada se o resultado 6 zero, senio e ressetada; 

H - ressetada; 

P/V - setada se a paridade 6 par, senao 6 ressetada; 

N - ressetada; 

C - bit copiado do bit 7 do registrador fonte. 
Exemplo: Se o conteudo da Carry Flag 6 0 e o conteudo do registrador 
D 6 



1 0 0 0 1 1 1 1 



8 - Rota^ao Circular a Direita 
Format o: RRC m 

Operafdo: O conteudo de cada bit do operando m e' movido para o bit 
a direita. 

Cddigo objeto: 



RRC r 




onde rrr pode assumir os valores que estao na figura 1 . 

Descrifdo: O conteudo do operando m 6 rotacionado para a direita: o 
conteudo do bit 7 i movido para o bit 6, o conteudo anterior do bit 6 
6 movido para o bit 5 , e este padrao 6 repetido para todos os bits. O 
conteudo do bit 0 e copiado na Carry Flag ( Flag C do resgitrador F), 
assim como no bit 7. 



INSTRUCAO CICLOS DE NAQUINA(H) STATES(T) 


RRC r 


2 


»( A, A) 


RRC (HL) 


A 


1S(A,A,A,3) 


RRC ( Il«d) 


6 


2 3 ( A , A , } , 5 , A , 3 ) 


RRC ( I V ♦ d ) 


6 


23(A,A,3,5,A,3) 



blags ajetadas: S - setada se o resultado e negative, senio e ressetada; 

Z — setada se o resultado e zero, senio 6 ressetada; 

H - ressetada ; 

P/V - setada se a paridade 6 par, senio e ressetada; 

N - ressetada ; 

C - copiado do bit 0 do registrador fonte. 

Exemplo: Se o conteudo do registrador A 6 



— i 1 1 1 1 1 1 — 

0 0 1 1 0 0 0 1 

1 ■ I I I I 1 



ap6s a execufio da instru^ao RRC A o conteudo da Carry Flag sera 1 e 
o conteudo do registrador A sera : 



1 0 0 1 1 0 0 0 



apds a execucao da instrucao RL D o conteudo da Carry Flag ser a 1 e 
o conteudo do registrador D sera: 

1 1 1 1 1 1 1 

0 0 0 1 1 1 1 0 
I I I I I 1 J— 



Ameury Correa de Almeida Moraes Junior d formado pelo curso de And- 
Use de Sistemas da FASP. ten do feito di versos cursos de aperfeipoamen- 
to nas drees de Eletrdnica Digital a Microprocessadores, e atualmente 
trabalha na drea de fnicrocomputadores para o Citybank. 
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• RAMCARD • SOFTCARD • VIDEOTERM • SOFTVIDEO SW • PROGRAMMER • PROTOCARD • INTF. DISKS 
• IN FT. PRINT • SATURN 128K RAM. • SATURN 64K RAM. • SATURN 32K RAM. • RANA QUARTETO • MICROMODEM II 
• MICROBUFFER II • MICROCONVERTER II ■ MICRO VOZ II ■ ULTRATERM ■ ALF 8068 CARD 
■ A800 DISK CONT ■ MULTIFUNCTION CARD 

MICROCRAFT MICROCOMPUTADORES LTDA. 

ADMINISTRA^AO E VENDAS: AV. BRIG. FARIA LIMA, 1 .664 - 3? ANCAR - CJ 316 - CEP 01452 
FONES (Oil) 212-6286 E 815-6723 - SAO PAULO - SP - BRASIL 







Foi dada a largada! 0 carro adversArio se desgoverrta e dispara de encontro ao seu. 
Para ganhar esta pa rad a, vi desviando, e most re ao seu Apple quern 6 o campeao 



Um enduro micro-louco 



Cteudio Leonardo Milione Dutra 



E ste 6 um jogo simples, mas ideal para divertir os 

usuirios do Apple e com pat iveis nas tardes de domingo. 
0 objetivo 6 evitar a batida do carro adversario 
(do micro) contra o seu. at6 que o tempo da corrida 
se esgote 

Para movimentar o seu carro. pressione as setas para a direita 



e para esquerda. e para para-lo use a barra de espa^o. As 
teclas 1 e 2 selecionam a primeira e a segunda marcha, 
respectivamente. 

Pronto para a largada? EntSo corredor, pe na tdbua e m3o 
nas teclas! 



IN FORMAT 1C A AO 

ALCANCE 

DE TODOS 




ENTRE NA ERA 
DOS COMPUTADORES 



TAXA CrS 30 000.00 

UNICA I DADE 



• Introduqao ao Processamento 
de Dados • Digitaqao • Basic 

• Cobol • RPG • PL 1 • Fortran 

• Assembler • Mumps 

227-7417 - 521-4936 - 267-9261 

Copa — Centro — Tijuca — Meier 
Madureira — N. Iguagu — Caxias 

DATABERA" — PROCESSAMENTO 
DE DADOS Rio de Janeiro 



Enduro 



JL 1ST 

100 TEXT : POKE 34,0: HOME : SPEED- 

105 REM **#*******#*#** ###### 

110 REM *BY CLMD PRODUCTIONS* 

US REM 

120 REM EXPLICACAO 
125 HTAB 15: INVERSE : PRINT "EN 
DURO“: NORMAL : VTAB 3: HTAB 
2: PRINT " PARA MOVER O CARR 
0 USE fiS SETAS": VTAB 5: HTAB 
2: PRINT " A BARRA PARA O CA 
RRO": VTAB 7: HTAB 2: PRINT 
TECLAS 'l* & '2' SELECIONA 
M AS MARCHAS": VTAB 20: GET 
At 

130 REM PA I SAGEM 
135 X « 2 
140 HOME 
145 GR 

150 COLOR* 10 
155 A » 0:B • 13 
160 GOSUB 165: GOTO 185 
165 FOR N - 15 TO 8 STEP - 1 
170 HLIN A, B AT N: A ■ A + 1:B - 
B - 1 
175 NEXT 
180 RETURN 

183 COLOR- 8: A - 13: B » 27: GOSUB 
1 65 

190 COLOR- 13: A - 25: B » 39: GOSUB 
1 65 

193 COLOR- 13: HLIN 26,27 AT 3: HLIN 
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ESCOLA DO FUTURO. HOJE! 




A DIGITUS • IN DUST Rl A DE COM PUT A DOPES tem procurado atender 
ao usu&rio do DQT-1000, colocando no mercado novos equipamentos 
que aumentam a versatilidade do microcomputador. 

E com esse objetivo, que a DIGITUS langa a UCTE-um mddulo que 
acoplado ao DQ T-1000 ird atender aos profissionais prlncipalmente 
da area educacional. 



UCTE • U nldada Controladora ds Terminals Educactonals. 



Dfomts- 

Rua G4*m. 150 Sato Honronta 
ml. (031) 3320300 hr 3352 
Rio da Janairo — RJ 
tat (021) 257-2980 



Esta untdade permit* a comunlcagio antra um DQ T-1000 central com at4 16(dezassais) DQ T-1000 sacundinos 

terminals poderio aercomputadorea na conllgHregio minima, poia sando a comunlcagio atrsvis 
da porta de cassata nio i nacassirio quatquer modlflcagio noa terminals 

O com putador central, comandado pelo Inatrutor, deveri ter uma conflguregio minima de *8K B de memdria a 
um Disk-Driva. 



O alatema permit* ao Inatrutor carregarprogramaa naa aatagdes individuals, podendo apUcar proves a ter as 
raapostaa automatlcamanta gravadaa no disquete, para posterior avallagio. 

Nas eatagdea Individuals, oa aatudantaa poderio graver a carregarprogramaa dlratamante no computador do 
Inatrutor a podario tambim uaaro seu computador Independan foment*. 



Sues apllcagOea sJo da grande valla para centres educaclonals, cursos monltorlzados, ascolas ticn/cas, ate 
A UCTE facllltarS multo o aprendlzado am cursos da programagio a operagio de computadoraa, slim de permltlr 
oanaktoem outraaireea. 

A UCTE dispense o uao incdmooo do cassata a o seu custo 4 manor do que comprar oa gravadores para os 



terminals. 



OBS.: A UCTE pode serutlllzada com oDQT-100. Consult* seu revendedor. 














23,28 AT 4: HL IN 24,29 AT 3: 

HL IN 23,28 AT 6: HL IN 26,27 
AT 7 

200 COLOR- 12 
203 A » 0:B » 39 
210 FOR N - 32 TO 16 STEP - 1 
215 HLIN 0, A AT N: HL IN B,39 AT 
N 

220 :a-a+i:b»b-i: next : color* is 

223 A « 0:B - 39 

230 FOR N » 32 TO 16 STEP - 1 

233 PLOT A,N: PLOT B,N 

240 A-A«-i:B»B-l: NEXT 

245 FOR N - 10 TO 0 STEP - 1 

230 VTAB 21 : HTAB 15: PRINT Nl " 

SEC. PARA A LARGADA " 

233 FOR K » 1 TO 300: NEXT 
260 O » PEEK ( - 16336) 

263 NEXT N 

270 HOME 

273 REM JOGO 

280 CLEAR 

283 X - 1 

290 A • 19 

293 B » 18:C * 17 

300 COLOR- 7: GOSUB 433 

305 FOR T » 500 TO 0 STEP - 1 

310 E - PEEK ( - 16384) 

313 ZX - PEEK ( - 16336) 

320 VTAB 22: HTAB 28: PRINT “TEH 
PO - " I T I ” “ 

323 COLOR- 3: GOSUB 420 

330 IF C > - 31 THEN COLOR- 0: 

GOSUB 433:C » 17: B - 18 
335 R - INT <13 # RND <1>) 

340 IF R > 3 AND R < 10 THEN COLOR- 



SEJA PILOTO OU MECANICO 
DE AVIOES 
OU HELICOPTEROS 




EMPAER 



o: GOSUB 433: C » C ♦ x: COLOR- 
7: GOSUB 435: VTAB 23: HTAB 
23: PRINT “ * «: GOTO 363 
345 IF R > 10 AND SCRN < B ♦ 4,C 

) < >13 THEN COLOR- 0: GOSUB 

433: B -B+2:C-C+X: COLOR- 
7: GOSUB 433: VTAB 23: HTAB 
23: PRINT - >" 

330 IF R > 10 AND SCRN< B ♦ 4, C 
) - 13 THEN COLOR- 0: GOSUB 
433: B « B - 2: COLOR- 7: GOSUB 
433: VTAB 23: HTAB 23: PRINT 

M 

333 IF R < 3 AND .SCRN< B - 2,0 

< >13 THEN COLOR- 0: GOSUB 

435: B - B - 2:c » C ♦ x: COLOR- 
7: GOSUB 435: VTAB 23: HTAB 
23: PRINT “< “ 

360 IF R < 3 AND SCRN < B - 2,0 
- 13 THEN CQLORe O: &OCU6 

433: B » B ♦ 2: COLOR- 7: GOSUB 
435: VTAB 23: HTAB 23: PRINT 

M ^ M 

365 IF E - 136 THEN COLOR- O: GOSUB 
420: A = A - t: COLOR- 3: GOSUB 
420 

370 IF E - 149 THEN COLOR- 0: GOSUB 
420: A - A ♦ i: COLOR- 3: GOSUB 
420 

373 IF SCRN < A - 1,31) » 12 OR 

SCRN < A ♦ 3,31) - 12 THEN GOTO 
430 

380 COLOR- 7: GOSUB 433 

385 IF SCRN < A, 30) » 7 OR SCRN < 

A ♦ 1,31) - 7 OR SCRN ( A ♦ 

2,30) » 7 THEN 430 
390 IF E - 177 THEN S - 0 

393 IF E - 178 THEN S - 2 

400 IF S - 2 THEN X - 2: VTAB 22 

: HTAB l: PRINT "PR I ME IRA" ) : 
INVERSE : HTAB 20: PRINT “S 
EGUNDA * : VTAB 23: NORMAL : HTAB 
12:K » K ♦ 2: PRINT K 
403 IF S - O THEN X - l: VTAB 22 
: HTAB l: INVERSE : PRINT “P 
RIME IRA*' ) : NORMAL : HTAB 20: 

: PRINT "SEGUNDA": VTAB 23: HTAB 

12:k - k ♦ i: print k;“ km- 

410 NEXT T: TEXT : HOME : VTAB 1 
0: HTAB 3: PRINT “ VOCE GANH 
OU! !"S END 

413 REM DFSENHA O NOSSO CARRO 
420 PLOT A, 31 : PLOT A, 30: PLOT A 
♦ 1,31: PLOT A ♦ 2,31 : PLOT 
A ♦ 2,30 
423 RETURN 

430 REM DESENHA 0 CARRO ADVERSA 
RIO 

433 PLOT B,C: PLOT B,C - l: PLOT 
B ♦ 1,C: PLOT B ♦ 2,C: PLOT 
B ♦ 2, C - 1 
440 RETURN 

445 REM ROTINA DE FIM 
430 HOME : VTAB 21: HTAB 3: PRINT 
"VOCE PERDEU" 

435 FOR M » 1 TO 5: COLOR- M 
460 FOR N - 0 TO 39: HLIN 0,39 AT 



N: NEXT N 
463 NEXT M 




Cliudio Leonardo Mi hone Dutra tam IB anos a 4 a/uno do Instituto Me 
toditta Bennett Pottui urn Apple II h4 um ano a atualmanta att4 faian- 
do o Curso da Formapto da Programadorat a Analtstas da SJttamat na 
Faculdada da Cidada. 
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NOVO CP 300 PROL0GICA. 



■■mkm 



OpeqiK 

grande 



Pode ser 
acopiado a uma 
impressora 



Agora, na hora de escolher entre um 
microcomputador pessoal simples, de lacil 
manejo e um sofisticado microcomputador 
profissional, voce pode ficar com os dois. 
Porque chegou o novo CP 300 Proldgica 
0 novo CP 300 tern prego de 
microcomputador pequeno Mas memdria 
de microcomputador grande. 

Ele jd nasceu com 64 
kbytes de memoria 
interna com 
possibilidade de 
expansao de memd- 
ria externa para ate 
quase 1 megabyte. 

E tern um teclado prolissional, 
que dd ao CP 300 uma versatilidade incrivel. 
Ele pode ser utilizado com programas de 
tita cassete, da mesma maneira que com 




programas em disco. 



tai 



64 K 






0 unico na sua faixa que 
nasce com 64 kbytes de membna. 



Compativel com 
programs! em lila 
cassete ou em disco. 



Pode ser ligado ao seu^parelho de TV, da 
mesma forma que no terminal de video 
de uma grande empresa 
Com o CP 300 voce pode 
fazer conexoes telefonicas 
para coleta de dados, 
se utilizar 
de uma 
impressora 

e ainda dispor de todos 
os programas existentes 
para o CP 500 ou o 
titeSflica TRS-80 americano. E o que e melhor: 

’ voce estara apto a operar qualquer 
outro sistema de microcomputador. 

Nenhum outro microcomputador pessoal 
na sua faixa tern tantas possibilidades de 
expansao ou desempenho igual. 

CP 300 Proldgica 

Os outros nao an prqLOGICA 

fazem 0 que ele faz, moococnputadoces 

pelo prego que ■■■ 
ele cobra. 



Parmite 



Pode ser ligado 
a um televisor comum 
ou a um sotistlcado 
terminal de video. 



•••• 



A* lunCrtaiBerto MU V 




AM 

Uma 234 1045 
■•BA Saundor - 247-8951 
•CLFortwa 226-0671 244 2446 
•Of Bras ia 226-1523 225 4534 -IS Via Ve>fta 
229 1367 V)6r>a 222-5611 *GO-Go*i:a 224-7096 >MT 
CoaM 321 2307- MS-Campo Grande 383 1270 Dowados 421 1052 
•MG BNiMorirorte- 227-0681 Bet t»- 531 3806 Cel Fabroano -841 3400- Jui/ 
de Fo»a 212-9075 Ube»lin<H 235 1099* PA Be*n • 228-OOU • P* Case** 23 1538 Cm 
I'ttt 224-5616 - 224 3422 - Fwdotguacu 73 ; 3734 lorxji na 23 0065* PI Rec.le- 221-0142- Pl-Tere^na 
222-0186 • AJ Campos 22 3714 Rki de Jancto - 264-5797 - 253-3395 252 - 2050 *RN Nattl -222-3212* RS Ca*as do 
Sm - 221 3516 Pefttfas - 22 9918 - Porto Alegre • 22-4800 - 24-0311 Sam Rosa 512 1399 •RO-Porto Ve*o • 221-2656 • SP TnlrltO 
Bmios 22 6411 CantHias-2-44IQ-jmK)» 434 0222 Mat.id 33 5099- U 09 das Cr^ 469 6640 P>raMaba 33 1470 Roertlo dcmoMtncAo 
Prelo 625^5926 635 1t95-SaoJoaqMHniliBirra-728 2472 SlojosedosCampOS-22-7311-22-4740-SkiJosedoRioPrelo 32-264: nos principals 

Sorocata 33 7794.SC B'mnenjii 22 6277 • Chaoecd 22 0001 Cr«mna 33 2604 ftonandpo s 22^ 962? Jorv.ie 33 7520* Sl-Afacaiu • 224 1310 magazines. 







(Pre$o sujeito a aft*ro$oo). Frhodo d ABICOMP 




A Microdigital apresenta 

o novoTK 2000 cotor. 

Que tal um micro de alia performance, que traz as principals caracteristicas 
dos equipamentos mais sofisticados e que nao exige de voce um grande 
investimento inicial? E que tal um micro que cresce de acordo com as suas 
necessidades? Sao estas as vantagens que vao fazer do novtssimo 
TK 2000 Color um dos maiores sucessos no setor. 

Veja: e/e tern 64K de memoria RAM e 16K de memoria ROM, teclado professional 
tipo maquina de escrever, recebe diskette e impressora com interface ja contido, 
trabalha em cores, oferece alta resoluqao grafica e som. 

Pe$a uma demonstraqao. Nunca tanto foi Ihe oferecido por tao pouco. 

Grande quantidade de software disponivel (entre eles: diversos aplicativos 
comerciais e jogos a cores de alta resoluqao grafica). 

Betemtudoqueum 
micro deve ter.Menos oprego. 




Como Poitol 5 4086 CEP 01000 Soo Pooh S P • Tthn N * (01 1) 37 008 Md. M 
A Y*nda not bool co*oi do romo. tefOl tiptoolizodos d* fotovtdto iom • grondti magazi/tti 
St vo <i nao tnconUor tfft tquipomtnfo no iuo <i dodt Itgot por o (01 1 ) 800-2S5-65S3. 





